y轴应该能够从0-535,000运行，并且线应该在它们的位置上成比例。我没有足够的词汇来描述这个问题，所以这里有两张照片。闪亮的R ggplot：散点图轴已经很奇怪

server.R片断

carbon_emissions <- read.csv("/Users/mathewsayer/Documents/Work/Level 7/Shiny Flat Tax/Carbon/Carbon_Emissions/data/carbon_emissions0513.csv") 

output$carbonPlot <- renderPlot({ 
pCarbon <- ggplot(data=carbon_emissions[carbon_emissions$category%in%input$emission_choose,], 
aes(x=year, y=co2, group=category, colour=category))+ 
geom_line()+ 
geom_point() 
pCarbon + labs(title="UK Domestic, Industry and Transport CO2 Emissions") 
})

ui.R片断

checkboxGroupInput(
    "emission_choose", 
    label = "Plot CO2 emissions from various sectors", 
    choices = c(
     "Industrial and Commericial Electricity" = "i_c_electric", 
     "Industrial and Commericial Gas" = "i_c_gas", 
     "Large Industrial Installations" = 
     "large_industry", 
     "Other Industrial and Commericial Fuels" = "i_c_other_fuel", 
     "Agriculture" = 
     "agriculture",)) 

plotOutput("carbonPlot")

数据样本

year,co2,category 
2005,"110,579.1",i_c_electric 
2006,"116,665.8",i_c_electric 
2007,"113,343.8",i_c_electric 
2008,"112,510.3",i_c_electric 
... 
2010,7.6,pc_emission 
2011,6.9,pc_emission 
2012,7.1,pc_emission 
2013,7.0,pc_emission

预先感谢好人。

来源

2016-05-20 gizzard

看起来像你的co2变量是一个字符而不是数字。

只需在阅读文件后执行以下操作。

carbon_emissions$co2 <- as.numeric(gsub(",", "", carbon_emissions$co2))

来源

2016-05-20 14:24:40 Tutuchan

闪亮的R ggplot：散点图轴已经很奇怪

server.R片断

ui.R片断

数据样本

回答

相关问题