如何在R语言中移除列表字符向量的空元素与仅含点的元素

首先给你一个简洁有效的解决方案，完全满足你的需求——保留带前导零的标识符，同时移除空字符串和仅含.的元素：

# 先修正原始数据的变量名（别用list当变量名，它是R内置函数）
my_list <- list(c("2015","2016"),c(""),c("."), c("0","2418.9","292.4"),c("2",".",".","2394.6"),c("011","","934.0","1200.7"))

# 核心处理逻辑
l_final <- lapply(my_list, function(vec) {
  # 筛选出：既不是空字符串，也不是仅含"."的元素
  vec[vec != "" & vec != "."]
})

# 查看结果，和你期望的完全一致
l_final

运行这段代码后，你会得到和目标l_final完全相同的结果，所有带前导零的标识符（比如"011"、"0"）都完整保留了——因为我们全程在操作字符向量，没有做任何数值转换。

为什么你的原方法没生效？ #

我来帮你拆解下原代码的问题：

1. 变量名踩坑：你用了list作为变量名，但list是R的内置函数，这样会覆盖掉这个函数，导致后续代码逻辑混乱，以后尽量用更有意义的变量名（比如my_list）。
2. 逻辑方向错了：你试图用which找出.的位置，但这只能得到要删除的元素索引，而且嵌套的lapply逻辑绕了弯路——其实我们不需要找要删除的元素，直接筛选要保留的元素更简单。
3. 正则用错了场景：你尝试用正则匹配.，但其实你的需求是精确匹配完全等于"."的元素，直接用vec != "."就足够了，正则是用来处理模糊模式匹配的（比如如果有带空格的" ."这种情况，才需要用到正则）。

扩展：如果遇到带空格的仅点元素怎么办？ #

如果你的数据里还有类似" ."（带空格）或者" . "（前后都有空格）的元素需要移除，可以把筛选条件改成正则匹配：

l_final <- lapply(my_list, function(vec) {
  # 匹配仅包含点（前后可带任意空格）的元素，然后取反保留其他元素
  vec[!grepl("^\\s*\\.\\s*$", vec) & vec != ""]
})

这个正则表达式^\\s*\\.\\s*$的意思是：从开头到结尾，只有点和任意数量的空格，这样就能覆盖所有仅含点（含空格）的情况。

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