Memperbesar plot Anda
Sama seperti fungsi input dapat memiliki argumen berbeda tergantung jenis inputnya, fungsi placeholder output juga dapat memiliki argumen berbeda untuk mengubah tampilan atau perilakunya.
Sebagai contoh, saat menampilkan plot dalam aplikasi Shiny menggunakan plotOutput(), tinggi plot secara bawaan adalah 400 piksel. Fungsi plotOutput() memiliki beberapa parameter yang dapat digunakan untuk mengubah tinggi atau lebar plot.
Latihan ini adalah bagian dari kursus
Studi Kasus: Membangun Aplikasi Web dengan Shiny di R
Petunjuk latihan
Kode untuk aplikasi Shiny dari latihan sebelumnya telah disediakan. Tugas Anda adalah memperbesar plot. Secara spesifik:
- 600 piksel tinggi dan 600 piksel lebar. Anda dapat melihat dokumentasi
plotOutput()untuk mengetahui parameter yang digunakan (baris 18).
Latihan interaktif praktis
Cobalah latihan ini dengan menyelesaikan kode contoh berikut.
ui <- fluidPage(
sidebarLayout(
sidebarPanel(
textInput("title", "Title", "GDP vs life exp"),
numericInput("size", "Point size", 1, 1),
checkboxInput("fit", "Add line of best fit", FALSE),
colourInput("color", "Point color", value = "blue"),
selectInput("continents", "Continents",
choices = levels(gapminder$continent),
multiple = TRUE,
selected = "Europe"),
sliderInput("years", "Years",
min(gapminder$year), max(gapminder$year),
value = c(1977, 2002))
),
mainPanel(
# Make the plot 600 pixels wide and 600 pixels tall
plotOutput("plot", ___, ___)
)
)
)
# Define the server logic
server <- function(input, output) {
output$plot <- renderPlot({
data <- subset(gapminder,
continent %in% input$continents &
year >= input$years[1] & year <= input$years[2])
p <- ggplot(data, aes(gdpPercap, lifeExp)) +
geom_point(size = input$size, col = input$color) +
scale_x_log10() +
ggtitle(input$title)
if (input$fit) {
p <- p + geom_smooth(method = "lm")
}
p
})
}
shinyApp(ui = ui, server = server)