如果您的 Dataframe 包含字符，您可以使用nchar来计算sapply的字符数，如下所示：

df <- data.frame(A = as.character(c(1234, 56789, 159, 45950, 7844, 678, 17, 28794)), B = as.character(c(657, 823, 465, 756, 328, 122, 490, 990)))
df[sapply(df, \(x) nchar(x) < 4)] <- ""
df
#>       A B
#> 1  1234  
#> 2 56789  
#> 3        
#> 4 45950  
#> 5  7844  
#> 6        
#> 7        
#> 8 28794

创建于2023年1月15日，使用reprex v2.0.2
如果您的 Dataframe 包含数值，您可以更改所有小于1000的值，如下所示：

df <- data.frame(A = c(1234, 56789, 159, 45950, 7844, 678, 17, 28794), B = c(657, 823, 465, 756, 328, 122, 490, 990))
df[sapply(df, \(x) x < 1000)] <- ""
df
#>       A B
#> 1  1234  
#> 2 56789  
#> 3        
#> 4 45950  
#> 5  7844  
#> 6        
#> 7        
#> 8 28794

创建于2023年1月15日，使用reprex v2.0.2

假设用x替换长度小于4的值（假设没有浮点数），可能是df[df〈= 999]=“X”

A B
1  1234 X
2 56789 X
3     X X
4 45950 X
5  7844 X
6     X X
7     X X
8 28794 X