我想在每个组(由xy
定义)的data.frame ID
中绘制数据。当1946年之前的一年在一个小组中时,plot 2
应该被执行。当年份在1946年至2014年之间时,应执行plot1
。
我的问题:没有NA值就可以正常工作,但由于我有数据空白,我依靠NAs来定义这些数据空白。这就是我收到错误的原因:error in plot.window(need finite 'ylim' values)
。我尝试将finite=T
放在plot1
的y轴上,但这会产生subscript out of bounds
错误。有没有办法解决这个问题,图形是否正确绘制?
以下是我的代码:它很长但是大多数代码都包含我依赖的plot()
选项。
# read in sample data and split it up by group (defined by ID)
xy <- data.frame(NAME=c("NAME2","NAME2","NAME2","NAME2","NAME2","NAME3","NAME3","NAME3","NAME3","NAME5","NAME5","NAME5","NAME5"), ID=c(48,48,48,48,48,32,32,32,32,67,67,67,67),YEAR=c(1981,1983,1984,1988,1989,1984,1984,1988,1988,1899,1933,1948,1958),VALUE=c(0,205,-570,0,-310,-3680,-3680,NA,-3680,0,NA,13,-98))
ind <- split(x = xy,f = xy[,'ID'])
# Plot Scenario 1: if only years between 1946 and 2014 are present for each group do this:
plot1 <- function(x) {
fname <- paste0(x[1, 'ID'], '.png')
png(fname, width=1679, height=1165, res=150)
par(mar=c(6,8,6,5))
plot(x = c(1946, 2014),
y = range(x$VALUE),
type='n',
main=x[1, 'NAME'],
xlab="Time [Years]",
ylab="Value")
axis(2, at = seq(-100000, 100000, 500), cex.axis=1, labels=FALSE, tcl=-0.3)
points(ind[[i]][,c('YEAR','VALUE')], type="l", lwd=2)
points(ind[[i]][,c('YEAR','VALUE')], type="p", lwd=1, cex=1, pch=21, bg='white')
abline(h=0)
dev.off()
}
# Plot Scenario 2 if years under 1946 are present do this:
plot2 <- function(x) {
fname <- paste0(x[1, 'ID'], '.png')
png(fname, width=1679, height=1165, res=150)
par(mar=c(6,8,6,5))
plot(x[,c('YEAR','VALUE')],
type='n',
main=x[1, 'NAME'],
xlab="Time [Years]",
ylab="Value [mm]")
axis(2, at = seq(-100000, 100000, 500), cex.axis=1, labels=FALSE, tcl=-0.3)
points(ind[[i]][,c('YEAR','VALUE')], type="l", lwd=2)
points(ind[[i]][,c('YEAR','VALUE')], type="p", lwd=1, cex=1, pch=21, bg='white')
abline(h=0)
dev.off()
}
# Execute functions
lapply(ind, function(x) ifelse(any(x$YEAR < 1946 & x$YEAR < 2014), plot2(x), plot1(x)))
答案 0 :(得分:4)
在plot1
中,将y = range(x$VALUE)
更改为y = range(x$VALUE, na.rm=TRUE)
以删除NA
个缺失值。
你有另一个问题,即你在两个函数中引用ind[[i]]
,我认为这意味着在某些时候这段代码是循环的一部分。我的猜测是ind[[i]]
的所有引用都应该是x
。