小编wal*_*wer的帖子

我正在创建一个关于鸟类每年变化百分比的专题图.这是我的代码:

tm_shape(grid83)+
  tm_fill("trend", title = "Percent change per Year", textNA = "None counted", style="fixed",
    breaks=c(-Inf, -1.5, -0.25, 0.25, 1.5, Inf),
    palette = c("red", "orange", "yellow", "turquoise", "blue", "white"))+
  tm_borders(NA)+
tm_shape(uscan83)+ # add US and CAN 
  tm_borders()+
tm_layout(
  "Western Grebe",
  legend.title.size=1,
  legend.text.size = 0.6,
  legend.position = c("left","bottom"),
  legend.bg.color = "white",
  legend.digits = 5,
  legend.bg.alpha = 1)

目前,所有NA值都显示为灰色.我试图改变调色板:

palette = c("red", "orange", "yellow", "turquoise", "blue", "white"))

但这似乎没有用.NA值仍然是灰色的.我究竟做错了什么？

非常感谢!

我有一个包含大约700个文本文件的文件夹,我想导入并添加一列.我已经弄清楚如何使用以下代码执行此操作:

files = list.files(pattern = "*c.txt")
DF <- NULL
for (f in files) {
  data <- read.table(f, header = F, sep=",")
  data$species <- strsplit(f, split = "c.txt") <-- (column name is filename)
  DF <- rbind(DF, data)
}
write.xlsx(DF,"B:/trends.xlsx")

问题是,大约有100个文件是空的.所以代码停在第一个空文件,我收到此错误消息:

Error in read.table(f, header = F, sep = ",") : 
  no lines available in input

Run Code Online (Sandbox Code Playgroud)

有没有办法跳过这些空文件？