r语言中删掉全是0的列除了某一列

可以使用以下代码实现：

假设要删除全为0的列，但保留第一列（即不删除第一列）：

# 创建一个示例数据框
df <- data.frame(
  A = c(1, 2, 3, 4),
  B = c(0, 0, 0, 0),
  C = c(0, 0, 0, 0),
  D = c(5, 6, 7, 8)
)

# 删除全为0的列（除第一列外）
df <- df[, c(1, which(colSums(df[, -1]) != 0) + 1)]

代码解释：

- `colSums(df[, -1]) != 0` 返回一个逻辑向量，表示每列是否全为0（除第一列外）。
- `which(colSums(df[, -1]) != 0) + 1` 返回一个数值向量，表示需要保留的列的索引（排除第一列）。
- `[, c(1, ...)]` 表示选取第一列和需要保留的列。

最终结果：

  A D
1 1 5
2 2 6
3 3 7
4 4 8

相关问题

r语言列表里删除全是0的变量，除了某一列

假设你的数据框为df，某一列为col1，可以按照以下步骤进行：

1. 首先，使用colSums函数计算每列的和，并将结果存储在一个向量中：

sums <- colSums(df)

2. 接下来，使用which函数找到所有值不为0的列的索引：

nonzero_cols <- which(sums != 0)

3. 最后，从非零列中去除指定的列（例如，col1）：

nonzero_cols <- nonzero_cols[nonzero_cols != match("col1", names(df))]

4. 使用这些列的索引来选择您的数据框的子集：

df <- df[, c(nonzero_cols, match("col1", names(df)))]

R语言删除文件的某一列

在R语言中，如果你想要删除数据框（data frame）中的某一列，你可以使用`subset()`或`dplyr`包中的`select()`函数。这里以两种常见方法为例：

1. 使用`subset()`: 这个函数通常配合`[-]`操作符一起使用，表示从数据框中移除指定的列。

# 假设df是一个数据框，你想删除名为"column_name"的列
df <- subset(df, select = -c(column_name))

2. 使用`dplyr`包的`select()`: 如果你已经安装了`dplyr`包，可以更简洁地操作。

library(dplyr)
df <- df %>% select(-column_name)

在这两个例子中，`column_name`应该替换为你实际的数据框中想要删除的列名。执行这些代码后，原本的列就会被从数据框中移除。