ในขณะที่พยายามซ้อนทับบรรทัดใหม่ไปยัง ggplot ที่มีอยู่ฉันได้รับข้อผิดพลาดต่อไปนี้:
Error: ggplot2 doesn't know how to deal with data of class uneval
ส่วนแรกของรหัสของฉันทำงานได้ดี ด้านล่างนี้คือภาพข้อมูลการสร้างลมรายชั่วโมง "ล่าสุด" จากตลาดพลังงานไฟฟ้าในแถบมิดเวสเทิร์นของสหรัฐอเมริกา
ตอนนี้ฉันต้องการซ้อนทับค่าสังเกตสองวันที่ผ่านมาด้วยสีแดง มันควรจะง่าย แต่ฉันคิดไม่ออกว่าทำไมฉันถึงได้รับข้อผิดพลาด
ความช่วยเหลือใด ๆ จะได้รับการชื่นชมอย่างมาก
ด้านล่างนี้เป็นตัวอย่างที่ทำซ้ำได้:
# Read in Wind data
fname <- "https://www.midwestiso.org/Library/Repository/Market%20Reports/20130510_hwd_HIST.csv"
df <- read.csv(fname, header=TRUE, sep="," , skip=7)
df <- df[1:(length(df$MKTHOUR)-5),]
# format variables
df$MWh <- as.numeric(df$MWh)
df$Datetime <- strptime(df$MKTHOUR, "%m/%d/%y %I:%M %p")
# Create some variables
df$Date <- as.Date(df$Datetime)
df$HrEnd <- df$Datetime$hour+1
# Subset recent and last data
last.obs <- range(df$Date)[2]
df.recent <- subset(df, Date %in% seq(last.obs-30, last.obs-2, by=1))
df.last <- subset(df, Date %in% seq(last.obs-2, last.obs, by=1))
# plot recent in Grey
p <- ggplot(df.recent, aes(HrEnd, MWh, group=factor(Date))) +
geom_line(color="grey") +
scale_y_continuous(labels = comma) +
scale_x_continuous(breaks = seq(1,24,1)) +
labs(y="MWh") +
labs(x="Hour Ending") +
labs(title="Hourly Wind Generation")
p
# plot last two days in Red
p <- p + geom_line(df.last, aes(HrEnd, MWh, group=factor(Date)), color="red")
p