当数据中有奇数行时,我希望随机从数据帧中删除一行.为此,我try 了以下方法:
df <- tibble(value 1:100) # Creating dataframe
df <-
case_when(
nrow(df) %% 2 == 0 ~ df, # If even # of rows, keep df as is
nrow(df) %% 2 != 0 ~ df[-sample(x = nrow(df), size = 1),] # If odd number of rows, randomly sample one row and remove it from df
)
我收到
错误:无法使用NA作为列索引,位置1为
[
.
任何帮助都将不胜感激!非常感谢.