2016-05-20 15 views
2

Die Y-Achse sollte in der Lage sein, von 0-535.000 laufen und die Linien sollten in ihren Positionen proportional sein. Ich verfüge nicht über das Vokabular, um dieses Problem angemessen zu beschreiben. Hier sind zwei Bilder.Shiny R ggplot: Scatterplot Achse ist seltsam geworden

See what I mean?

A closer look

server.R Schnipsel

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 Schnipsel

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") 

Datenabtastwert

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 

Vielen Dank im Voraus gute Leute.

Antwort

3

Sieht so aus, als wäre Ihre co2 Variable ein Zeichen anstelle einer Zahl.

Führen Sie einfach die folgenden Schritte aus, nachdem Sie die Datei gelesen haben.

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