温度图:FUN(X[[i]], ...) 错误:未找到对象 'y'

Temperature Plot: Error in FUN(X[[i]], ...) : object 'y' not found

我正在尝试绘制温度,同时从下面的link中获取代码: https://cran.r-project.org/web/packages/ggjoy/vignettes/gallery.html

这里作者用y轴做月轴,我想用x轴做月轴,y轴做温度轴

数据可以从下面link下载: https://drive.google.com/file/d/0ByOfjCmqEilLYndpOWJyZXhPVUk/view

代码如下:

enter code here
library(ggjoy)
library(hrbrthemes)
library(viridis)

setwd <- 'C:/Users/Data/'
weather.raw <- read.csv(file="nebraska-2016.csv", header=TRUE, sep=",")
weather.raw$month<-months(as.Date(weather.raw$Date))
weather.raw$months<-
        factor(rev(weather.raw$month),levels=rev(unique(weather.raw$month)))

mins<-min(weather.raw$Min.TemperatureF)
maxs<-max(weather.raw$Max.TemperatureF)

ggplot(weather.raw, aes(x = months , y = Mean.TemperatureF, fill = ..y..)) + 
geom_joy_gradient(scale = 1, rel_min_height = 0.01, gradient_lwd = 1.) +
scale_x_discrete(expand = c(0.01, 0)) +
scale_y_continuous(expand = c(0.01, 0)) +
scale_fill_viridis(name = "Temp. [°C]", option = "C") +
labs(title = 'Temperatures',
subtitle = 'Histogram of Mean Temperatures (°F) - 2016') +
theme_joy(font_size = 13, grid = TRUE) + theme(axis.title.x = element_blank())

它给出了以下错误。

Error in FUN(X[[i]], ...) : object 'y' not found

library(ggjoy)
library(hrbrthemes)
library(viridis)

weather.raw <- read.csv(file="nebraska-2016.csv", header=TRUE, sep=",")
weather.raw$month <- months(as.Date(weather.raw$CST))
weather.raw$months <- factor(weather.raw$month,levels=unique(weather.raw$month))

weather.raw$Mean.TemperatureF <- (weather.raw$Mean.TemperatureF-32)/1.8

ggplot(weather.raw, aes(x = Mean.TemperatureF, y = months , fill = ..x..)) + 
geom_joy_gradient(aes(x=Mean.TemperatureF), scale = 1, 
                  rel_min_height = 0.01, gradient_lwd = 1.) + 
coord_flip() +
scale_y_discrete(expand = c(0.01, 0)) +
scale_x_continuous(expand = c(0.01, 0)) +
scale_fill_viridis(name = "Temp. [°C]", option = "C") +
labs(title = 'Temperatures',
subtitle = 'Histogram of Mean Temperatures (°C) - 2016') +
theme_joy(font_size = 13, grid = TRUE) + theme(axis.title.x = element_blank())