Skip to content

Instantly share code, notes, and snippets.

@haven-jeon
Created Nov 11, 2012
Embed
What would you like to do?
Korea Oil Price plot with Shiny
library(shiny)
library(ggplot2)
library(reshape2)
library(scales)
#data load from dropbox
load(url("http://dl.dropbox.com/u/8686172/oil_price.RData"))
shinyServer(function(input, output) {
output$oilPlot <- reactivePlot(function() {
kinds <- c()
if(input$p_gasolin == TRUE){
kinds <- c(kinds, "premium gasolin")
}
if(input$gasolin== TRUE){
kinds <- c(kinds, "gasolin")
}
if(input$diesel== TRUE){
kinds <- c(kinds, "diesel")
}
if(input$kerosene== TRUE){
kinds <- c(kinds, "kerosene")
}
if(length(kinds) == 0) stop(enc2utf8("최소 하나의 유종을 선택하세요!"))
oil_price_tail <- tail(oil_price, input$obs)
oil_reshpae <- melt(oil_price_tail, id.vars=c("date"))
names(oil_reshpae) <- c("date", "kind", "price")
oil_subset <- subset(oil_reshpae, kind %in% kinds )
oil_subset$kind <- factor(oil_subset$kind, levels=c("premium gasolin","gasolin", "diesel","kerosene"),
labels=enc2utf8(c("고급휘발유", "보통휘발유", "경유", "등유")))
p <- ggplot(oil_subset, aes(date,price)) + geom_line(aes(colour=kind)) +
scale_x_date(breaks = date_breaks("3 month")) +
theme(axis.text.x=element_text(angle=45)) + scale_color_discrete(enc2utf8("유종")) +
xlab(enc2utf8("날짜")) + ylab(enc2utf8("가격(원)"))
print(p)
})
})
library(shiny)
# bugs on label on checkboxInput to display Korean
# a<-enc2utf8("고급휘발유")
# b<-enc2utf8("보통휘발유")
# c<-enc2utf8("자동차경유")
# d<-enc2utf8("실내등유")
shinyUI(pageWithSidebar(
headerPanel(enc2utf8("유가 시계열 그래프(2008.4.14 ~ 2012.11.08")),
sidebarPanel(
sliderInput("obs",
enc2utf8("관측수(마지막 n개):"),
min = 7,
max = 1670,
value = 670),
wellPanel(p(strong(enc2utf8("유종"))),
checkboxInput(inputId = "p_gasolin", label = "Premium Gasolin", value = FALSE),
checkboxInput(inputId = "gasolin", label = "Gasolin", value = TRUE),
checkboxInput(inputId = "diesel", label = "Diesel", value = TRUE),
checkboxInput(inputId = "kerosene", label = "Kerosene", value = FALSE)
)),
mainPanel(
plotOutput("oilPlot")
)
))
@haven-jeon
Copy link
Author

bugs on label on checkboxInput to display Korean

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment