如何將下面的代碼。
方法1
在這裏,我已經通過去除它們並在一個單獨的數據幀存儲所述清潔數據預處理缺少的值。當然,你可以將它保存在同一個數據幀像,dat<- na.omit(subset(dat, select = c(Year, Growth_Rate)))
`
# create some dummy data
Year<- c(2011:2016)
Growth_Rate<- c(NA,2.0,3.2,-2.0,1.3,1.9)
dat<- data.frame(Year, Growth_Rate, stringsAsFactors = FALSE)
# remove missing values
dat.clean<- na.omit(subset(dat, select = c(Year, Growth_Rate)))
# plot it
ggplot(data = dat, aes(Year,Growth_Rate))+
geom_bar(stat = "identity", na.rm = TRUE)+
geom_line(col='black', size=0.3)+
ggtitle("Ridership Change in Bronx") +
theme(plot.title = element_text(hjust = 0.5))
在我的角度來看,方法1是容易的,如預期,但增加了一個臨時變量來保存清理數據的開銷工作。
方法2
通過使用coord_cartesian()
。在我看來,對於這種方法最好的用例是在你希望限制x軸值的時候。
library(ggplot2)
# create some dummy data
Year<- c(2011:2016)
Growth_Rate<- c(NA,2.0,3.2,-2.0,1.3,1.9)
dat<- data.frame(Year, Growth_Rate, stringsAsFactors = FALSE)
# plot it
ggplot(data = dat, aes(Year,Growth_Rate))+
geom_bar(stat = "identity", na.rm = TRUE)+
geom_line(col='black', size=0.3)+
coord_cartesian(xlim = c(2012, 2016))+
ggtitle("Ridership Change in Bronx") +
theme(plot.title = element_text(hjust = 0.5))
與方法2的問題,是當被執行時,會產生像警告消息,Warning messages: 1: Removed 1 rows containing missing values (position_stack). 2: Removed 1 rows containing missing values (geom_path).
方法3
我與Method 1
怨恨,它被創建額外的臨時變量存儲清理的數據。所以我提出方法3;
ggplot(data = na.omit(subset(dat, select = c(Year, Growth_Rate))),
aes(Year,Growth_Rate))+
geom_bar(stat = "identity", na.rm = TRUE)+
geom_line(col='black', size=0.3)+
ggtitle("Ridership Change in Bronx") +
theme(plot.title = element_text(hjust = 0.5))
我認爲,Method 3
解決了這兩個my grudge
還有OP question
。
你可以篩選數據,例如:ggplot(dplyr ::濾波器(載客量,年= 「2011年度」 is.na(年)),AES(年! ,... –