问题描述
我有一个应该很容易解决的问题,但没有找到直接适用于我的情况的答案。
我正在尝试使用geom_point创建一个绘图,其中显示的点是来自字符向量的过滤值。 y是连续数字,x是日期,fill是字符向量。
这是我的示例数据:
year month day attempt n_test
2019 6 22 1 NA
2019 7 13 2 n
2019 8 3 3 n
2019 8 20 4 n
2019 9 3 5 n
2019 9 4 6 n
2019 9 8 7 n
2019 9 11 8 p
2019 9 17 9 n
2019 10 3 10 n
2019 10 3 11 n
2019 10 11 12 c
2019 10 22 13 n
2019 10 25 14 n
2019 10 28 15 p
2019 11 6 16 c
2019 11 9 17 n
2019 11 25 18 n
2019 12 4 19 n
2019 12 8 20 n
2019 12 14 21 p
2019 12 17 22 n
2019 12 20 23 n
这称为“ ntest.csv”。
这是我的代码:
ntest <- read.csv('ntest.csv',header = TRUE)
n_date <- ymd(paste(ntest$year,ntest$month,ntest$day,sep="-"))
ggplot(ntest,aes(n_date,y=attempt)) +
geom_point(aes(colour = n_test),size = 3.5) +
labs(x=NULL) +
theme(legend.position="none",axis.text.x = element_text(color = "black",size = 10,angle=45),axis.text.y = element_text(color = "black",size = 10),axis.title.y = element_text(size = 13,vjust = 2)) +
scale_x_date(date_breaks = "months",date_labels = "%b-%y")
这给出了附件图。
我只想在我的geom_point图中显示n_test等于“ p”的行。 因此,同一图只带有蓝点。 我尝试使用
ntest %>%
filter(n_test=="p")
在ggplot之前,但这导致:
“错误:美学的长度必须为1或与数据(3)相同:x”
任何帮助将不胜感激。
解决方法
这里的问题是您没有使n_date
成为数据帧的一部分,因此在过滤数据帧时不会对其进行过滤,因此长度与此不同。解决方案只是将其创建为数据框中的一列:
ntest$n_date <- lubridate::ymd(paste(ntest$year,ntest$month,ntest$day,sep="-"))
现在您可以应用滤镜,您的绘图将起作用(请注意,这些点是红色的,因为现在只有一个颜色组):
ggplot(ntest %>% filter(n_test == "p"),aes(n_date,y=attempt)) +
geom_point(aes(colour = n_test),size = 3.5) +
labs(x=NULL) +
theme(legend.position="none",axis.text.x = element_text(color = "black",size = 10,angle=45),axis.text.y = element_text(color = "black",size = 10),axis.title.y = element_text(size = 13,vjust = 2)) +
scale_x_date(date_breaks = "months",date_labels = "%b-%y")