如何从R中的Excel文件中删除不需要的列？

我已经阅读了R中有两张纸的excel文件，其中第一张纸有四列，第二张纸只有一列。 在阅读R中的第一张纸后，仍然没有很好的结构。 我想摆脱不需要的列。

当我从R的excel文件中读取第一张纸时，看起来像这样：

> head(data) User ID Group Week Spend Purchases 1 173366631 Test 2014-10-06 546.87 4 <NA> 2 144427921 Test 2014-10-06 218.09 3 <NA> 3 213641575 Test 2014-10-06 18.75 1 <NA> 4 614549153 Control 2014-10-06 29.98 15 <NA> 5 84652272 Test 2014-10-06 628.16 4 <NA> 6 75292137 Test 2014-10-06 8.46 1 <NA> structure(c(NA_character_, NA_character_, NA_character_, NA_character_, 1 <NA> 2 <NA> 3 <NA> 4 <NA> 5 <NA> 6 <NA> 

“购买”栏后如何摆脱栏目？ 我怎么能只保留我的数据的五列（即User ID ， Group ， Week ， Spend ， Purchases ）？

Answer 1

我们可以使用[子集的列

 data <- data[1:5] 

如果这需要与"Purchases"

 data[seq(grep("Purchases", colnames(data)))] 

Answer 2

 lines <- ('User_ID Group Week Spend Purchases 173366631 Test 2014-10-06 546.87 4 <NA> 144427921 Test 2014-10-06 218.09 3 <NA> 213641575 Test 2014-10-06 18.75 1 <NA> 614549153 Control 2014-10-06 29.98 15 <NA> 84652272 Test 2014-10-06 628.16 4 <NA> 75292137 Test 2014-10-06 8.46 1 <NA>') df <- read.table(text = lines, header = TRUE) df[, -which(names(df) == 'Purchases')]