Ошибка вязания уценки R нет выбранных переменных tidyselect

Question

Я пытаюсь связать свой код с файлом html; однако, когда файл достигает строки кода, содержащей функцию pivot_longer(), появляется ошибка ( см. здесь ошибка ). Я приложу свой код ниже. Какие-либо предложения? набор данных (файл .csv)

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")

Answer 1

Я не уверен, что вы пытаетесь выполнить с помощью строки:

dt[,i] <- apply(dt[,i], 2, function(x) as.numeric(as.character(x)))

Но я думаю, вы пытаетесь преобразовать столбцы январь и февраль в число c который будет прочитан как char первой командой и, если он таков, используйте:

dt[,2:3] <- apply(dt[,2:3], 2, function(x) as.numeric(as.character(x)))

, чтобы явно преобразовать только эти два столбца. Попробуйте связать код после изменений, и он должен успешно сгенерировать html.

Я бы порекомендовал использовать str(dt), чтобы проверить, какие столбцы были прочитаны как тип.