ggplot2에 수직선을 추가 할 때 오류가 발생했습니다.

Question

그래서 저는 경매에 사용 된 데이터 중 대규모 데이터 세트 (약 400,000 회의 관측)를 확보했습니다. 저는 ggplot을 사용하여 하루 경매 가격을 표시하고 수직선을 사용하여 색상과 월별로 연도를 표시하려고합니다.

firstmonth<- c(1,32,60,91,121,152,182,213,244,274,305,335) 

require(ggplot2) 
p <- ggplot(bb, aes(saledate$yday, SalePrice)) 
p <- p + geom_point(aes(color = factor(saledate$year)), alpha = I(1/30)) #This plot works 
p + geom_vline(aes(xintercept = firstmonth)) 
Error in data.frame(xintercept = c(1, 32, 60, 91, 121, 152, 182, 213, : 
    arguments imply differing number of rows: 12, 401125 

이 오류와 함께 기능 :

은 여기, 내 날짜를 보유하고 POSIXlt 벡터를 내가 함께 일하고 있어요 무엇인가가? 왜 수직선을 얻을 수 없습니까?

Answer 1

당신은 geom_vline에 새 data.frame을 통과해야 : 새`data.frame`을 통과하지 않는 경우

가

library(ggplot2) 

bb <- data.frame(SalePrice=rnorm(1000)) 
saledate <- data.frame(yday=1:1000,year=rep(1:10,each=100)) 

firstmonth<- c(1,32,60,91,121,152,182,213,244,274,305,335) 

p <- ggplot(bb, aes(saledate$yday, SalePrice)) 
p <- p + geom_point(aes(color = factor(saledate$year))) #This plot works 
p + geom_vline(aes(xintercept = firstmonth)) 
#error 
df2 <- data.frame(firstmonth) 
p + geom_vline(data=df2,aes(xintercept = firstmonth)) 
#works