r - 将指定的列除以相同的值

我有一个包含 50 列不同土地覆盖类型的像素计数的县行的 csv。我需要将像素数转换为面积，所以我需要将每列除以 10,00。CSV 中还有其他列，例如县名和州。所以我需要一个包含所有原始列的输出 csv，但我指定的列除以 10,000。我需要划分的所有列在 csv 中彼此相邻（列 4:55）

标签： r

只需选择列4:55并除以 1000（算术运算是矢量化的，因此无需循环），然后更新

df1[4:55] <- df1[4:55]/1000

然后，将数据写回write.csv

write.csv(df1, "yourfile.csv", quote = FALSE, row.names = FALSE)

假设：

df1是一个data.frame，即通过从文件df1中读取数据来创建csv

df1 <- read.csv('yourfile.csv')