【发布时间】:2020-02-05 00:38:06
【问题描述】:
我正在尝试将我的代码编入一个 html 文件;但是,当文件到达包含函数pivot_longer() 的代码行时,会出现错误(see error here)。我将在下面附上我的代码。有什么建议么?
dataset (.csv file)
library(ggplot2)
library(dslabs)
library(dplyr)
library(tidyr)
library(tidyverse)
dt <- read.csv("~co2-2019.csv", stringsAsFactors = FALSE)
dt[,i] <- apply(dt[,i], 2, function(x) as.numeric(as.character(x)))
dt.long <- pivot_longer(dt, -year, names_to = "month", values_to = "co2")
dt.long <- mutate(dt.long, month = factor(month, levels = month.abb))
dt.long <- group_by(dt.long, year, month) %>% summarize(mean_co2 = mean(co2, na.rm = TRUE))
ggplot(dt.long, aes(x=month, y=mean_co2, group = year))+ggtitle("Average Annual CO2 Levels at Mauna Loa Observatory")+geom_line()+labs(x="Month", y = "Average CO2 Level")
【问题讨论】:
-
如果
dt不包含名为year的列,就会出现这样的错误。我没有下载你的数据,但如果你在问题中发布前几行(dput是最好的方法,dput(droplevels(dt[1:10, ])),我很乐意看看。
标签: r r-markdown knitr tidyverse tidyr