Mutfakları keşfet: en çok kullanılan malzemeler
Yemek evrensel bir çekime sahiptir ve birbirinden farklı sayısız malzemeyle yapılabilecek inanılmaz çeşitlilik, neredeyse sonsuz sayıda yemek ortaya çıkarır! Bu egzersizde, tarifleri, ait oldukları mutfağı ve kullandıkları malzemeleri içeren recipes adlı bir veri kümesini kullanarak, kullanıcıların mutfağa göre en çok kullanılan malzemeleri keşfetmesine olanak tanıyan bir Shiny uygulaması oluşturacaksın.
Son uygulaman, bu ekran görüntüsündeki görsele benzemeli.

shiny ve dplyr paketlerini ve recipes veri kümesini senin için yükledik. Ayrıca, Yunan mutfağında en çok kullanılan ilk 10 malzemeyi getiren kullanışlı bir kod parçası da burada. Bu, kullanıcı tarafından seçilen mutfağa ve malzeme sayısına göre uygulamada etkileşimli veri tablosunu oluştururken işine yarayacak.
recipes %>%
filter(cuisine == 'greek') %>%
count(ingredient, name = 'nb_recipes') %>%
arrange(desc(nb_recipes)) %>%
head(10)
Bu egzersiz
R ile Shiny Kullanarak Web Uygulamaları Geliştirme
kursunun bir parçasıdırEgzersiz talimatları
- UI:
- Kenar çubuğunda
recipesveri kümesinde yer alan tüm mutfaklardan birini seçtirecekcuisineadlı bir giriş ekle. - Kenar çubuğuna, gösterilecek malzeme sayısını seçtirmek için
nb_ingredientsadlı bir kaydırıcı girişi ekle. - Ana panele
dt_top_ingredientsadlı etkileşimli bir veri tablosu çıktısı ekle.
- Kenar çubuğunda
- Server:
- Gösterilecek seçili mutfağa ve en üst malzeme sayısına göre
recipesveri kümesini filtrele. - Filtrelenen veriyi etkileşimli bir veri tablosu olarak oluştur.
- Bunu
dt_top_ingredientsadlı bir çıktı nesnesine ata.
- Gösterilecek seçili mutfağa ve en üst malzeme sayısına göre
Uygulamalı interaktif egzersiz
Bu örnek kodu tamamlayarak bu egzersizi bitirin.
ui <- fluidPage(
titlePanel('Explore Cuisines'),
sidebarLayout(
sidebarPanel(
# CODE BELOW: Add an input named "cuisine" to select a cuisine
# CODE BELOW: Add an input named "nb_ingredients" to select # of ingredients
),
mainPanel(
# CODE BELOW: Add a DT output named "dt_top_ingredients"
)
)
)
server <- function(input, output, session) {
# CODE BELOW: Render the top ingredients in a chosen cuisine as
# an interactive data table and assign it to output object `dt_top_ingredients`
}
shinyApp(ui, server)