如何删除数据帧中元素中的特定字符串？ DFDF[]要说明NA是第一位的，这可能会更好：gsub（“[，]{0,3}NA”，”，x） DF <- structure(list(`2005` = c(NA, NA, NA, "30, NA", "18",

如何删除数据帧中元素中的特定字符串？

---

DF
DF[]要说明NA是第一位的，这可能会更好：
gsub（“[，]{0,3}NA”，”，x）
DF <- structure(list(`2005` = c(NA, NA, NA, "30, NA", "18", NA), `2006` = c(NA_character_, 
NA_character_, NA_character_, NA_character_, NA_character_, NA_character_
), `2007` = c("15", NA, "18", NA, "30, 18, NA", NA), `2008` = c("16", 
NA, NA, "30, 27, NA", "18, 30, NA", NA), `2009` = c("15", NA, 
NA, "20, NA", "30, 18, NA", NA), `2010` = c(NA, NA, NA, "30, NA, 20", 
NA, NA), `2011` = c(NA_character_, NA_character_, NA_character_, 
NA_character_, NA_character_, NA_character_), `2012` = c(NA, 
NA, NA, "20, 30", NA, "26"), `2013` = c("15", NA, "19", NA, NA, 
NA), `2014` = c(NA, NA, "18", NA, NA, NA), `2015` = c(NA, NA, 
"18", NA, "18, NA", NA), `2016` = c(NA_character_, NA_character_, 
NA_character_, NA_character_, NA_character_, NA_character_)), .Names = c("2005", 
"2006", "2007", "2008", "2009", "2010", "2011", "2012", "2013", 
"2014", "2015", "2016"), row.names = c(NA, 6L), class = "data.frame")

DF[] <- lapply(DF, function(x) gsub(', NA', '', x))

DF[] <- lapply(DF, function(x) gsub("[ ,]{0,3}NA", "", x))