在R中为变量赋值整列数据并生成双列表格的方法及报错排查

核心报错原因 #

你用read.csv()读取数据后，data已经是加载好的数据框，但read.table()的第一个参数要求是文件路径字符串（比如"data.csv"），而非已加载的数据对象。这就是触发'file' must be a character string or connection错误的直接原因——你不需要重复调用读取函数，直接使用read.csv()的结果即可。

分步修正代码 #

1. 修正数据读取逻辑 #

删除重复的read.table()调用，直接用read.csv()完成读取，同时修正数据类型指定问题：R中没有"datetime"基础数据类型，需先将日期时间列读为字符型，再转换为POSIXct类型（需匹配你的日期格式）。

# 替换为你的实际文件路径，例如 "./data/your_data.csv"
mydata <- read.csv("the right pathway", header = TRUE, sep = ",", 
                   # 假设第1列是日期时间，第4、6列是数值，其余列自动识别
                   colClasses = c("character", NA, NA, "numeric", NA, "numeric"))

# 将第1列转换为日期时间类型，替换format为你的实际格式（如"%Y-%m-%d"）
mydata[, 1] <- as.POSIXct(mydata[, 1], format = "%Y-%m-%d %H:%M:%S")

2. 变量赋值（确认列名存在） #

确保column4和column6是mydata中真实存在的列名（可通过colnames(mydata)查看），赋值逻辑本身没问题：

x <- mydata$column4
y <- mydata$column6

3. 修正绘图代码（语法兼容问题） #

你混用了基础Rplot()和ggplot2的语法（expand_limits、scale_x_continuous是ggplot2专属），以下提供两种可行方案：

方案A：基础R绘图

plot(x, y, 
     xlab = "Year", 
     ylab = "Estimated data (in)", 
     main = "Plot",
     xlim = c(1980, 2022), # 设置x轴范围
     ylim = c(0, 150),     # 设置y轴范围
     xaxt = "n", yaxt = "n") # 隐藏默认轴刻度

# 自定义轴刻度（匹配年份范围）
axis(1, at = c(1980, 2000, 2022))
axis(2, at = c(0, 50, 100, 150))

方案B：ggplot2绘图（更灵活）

先安装并加载ggplot2包，再使用标准ggplot语法：

# 首次使用需安装包
# install.packages("ggplot2")
library(ggplot2)

graph <- ggplot(mydata, aes(x = column4, y = column6)) +
  geom_point() + # 按需替换为geom_line()等几何对象
  labs(x = "Year", y = "Estimated data (in)", title = "Plot") +
  expand_limits(x = c(1980, 2022), y = c(0, 150)) +
  scale_x_continuous(breaks = c(1980, 2000, 2022)) + # 对应年份刻度
  scale_y_continuous(breaks = c(0, 50, 100, 150))

# 显示图形
print(graph)

注意：你原代码中scale_x_continuous的breaks设置为50/100/150，与x轴年份范围1980-2022不匹配，已修正为合理年份刻度。

内容的提问来源于stack exchange，提问作者aiqt