使用NA值绘制折线图
使用NA值绘制折线图
提问于 2015-02-28 05:57:32
我在同一张图上绘制两个不完整的时间序列时遇到了问题，其中y数据在x轴(年份)上不具有相同的值-因此NAs存在于某些年份：
test<-structure(list(YEAR = c(1937, 1938, 1942, 1943, 1947, 1948, 1952,
1953, 1957, 1958, 1962, 1963, 1967, 1968, 1972, 1973, 1977, 1978,
1982, 1983, 1986.5, 1987, 1993.5), A1 = c(NA, 24, NA, 32, 32,
NA, 34, NA, NA, 18, 12, NA, 10, NA, 11, NA, 15, NA, 24, NA, NA,
25, 26), A2 = c(40, NA, 38, NA, 25, NA, 26, NA, 20, NA, 17,
17, 17, NA, 16, 18, 21, 18, 17, 25, NA, NA, 26)), .Names = c("YEAR", "A1",
"A2"), row.names = c(NA, -23L), class = "data.frame")我尝试的以下代码输出了一个不连续的混乱：
ggplot(test, aes(x=YEAR)) +
geom_line(aes(y = A1), size=0.43, colour="red") +
geom_line(aes(y = A2), size=0.43, colour="green") +
xlab("Year") + ylab("Percent") +
scale_x_continuous(limits=c(1935, 1995), breaks = seq(1935, 1995, 5),
expand = c(0, 0)) +
scale_y_continuous(limits=c(0,50), breaks=seq(0, 50, 10), expand = c(0, 0))
我该如何解决这个问题？
回答 3
Stack Overflow用户
回答已采纳
发布于 2015-02-28 06:30:20
我的首选解决方案是将其重塑为长格式。那么你只需要一次geom_line调用。特别是如果你有很多系列，那就更整洁了。与LyzandeR的第二张图表的结果相同。
library(ggplot2)
library(reshape2)
test2 <- melt(test, id.var='YEAR')
test2 <- na.omit(test2)
ggplot(test2, aes(x=YEAR, y=value, color=variable)) +
geom_line() +
scale_color_manual(values=c('red', 'green')) +
xlab("Year") + ylab("Percent") +
scale_x_continuous(limits=c(1935, 1995), breaks = seq(1935, 1995, 5),
expand = c(0, 0)) +
scale_y_continuous(limits=c(0,50), breaks=seq(0, 50, 10), expand = c(0, 0))
您可以考虑在行之外添加一个geom_point()调用，这样就可以清楚地知道哪些点是实值，哪些点缺失了。长格式的另一个优点是，额外的per每次只需要1次调用，而不是每个系列1次。
Stack Overflow用户
发布于 2015-02-28 06:01:30
您可以使用na.omit删除它们
library(ggplot2)
#use na.omit below
ggplot(na.omit(test), aes(x=YEAR)) +
geom_line(aes(y = A1), size=0.43, colour="red") +
geom_line(aes(y = A2), size=0.43, colour="green") +
xlab("Year") + ylab("Percent") +
scale_x_continuous(limits=c(1935, 1995), breaks = seq(1935, 1995, 5),
expand = c(0, 0)) +
scale_y_continuous(limits=c(0,50), breaks=seq(0, 50, 10), expand = c(0, 0))
编辑
对na.omit使用2个单独的data.frames
#test1 and test2 need to have the same column names
test1 <- test[1:2]
test2 <- tes[c(1,3)]
colnames(test2) <- c('YEAR','A1')
library(ggplot2)
ggplot(NULL, aes(y = A1, x = YEAR)) +
geom_line(data = na.omit(test1), size=0.43, colour="red") +
geom_line(data = na.omit(test2), size=0.43, colour="green") +
xlab("Year") + ylab("Percent") +
scale_x_continuous(limits=c(1935, 1995), breaks = seq(1935, 1995, 5),
expand = c(0, 0)) +
scale_y_continuous(limits=c(0,50), breaks=seq(0, 50, 10), expand = c(0, 0))
Stack Overflow用户
发布于 2019-05-29 22:11:54
您可以通过设置数据帧子集来删除它们：
ggplot(test, aes(x=YEAR)) +
geom_line(data=subset(test, !is.na(A1)),aes(y = A1), size=0.43, colour="red") +
geom_line(data=subset(test, !is.na(A2)),aes(y = A2), size=0.43, colour="green") +
xlab("Year") + ylab("Percent") +
scale_x_continuous(limits=c(1935, 1995), breaks = seq(1935, 1995, 5),
expand = c(0, 0)) +
scale_y_continuous(limits=c(0,50), breaks=seq(0, 50, 10), expand = c(0, 0))
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/28775036
复制相关文章
相似问题
腾讯云开发者
