একটি বিদ্যমান জিজিপ্লাটে নতুন লাইনটি ওভারলে করার চেষ্টা করার সময় আমি নিম্নলিখিত ত্রুটিটি পাচ্ছি:
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