27

我需要阅读以下数据文件夹中的“wdbc.data”：http: //archive.ics.uci.edu/ml/machine-learning-databases/breast-cancer-wisconsin/

使用命令 read.csv 在 R 中执行此操作很容易，但由于缺少标题，我该如何添加它？我有信息，但不知道如何执行此操作，我宁愿不要编辑数据文件。

4

5 回答 5

54

您可以执行以下操作：

加载数据：

test <- read.csv(
          "http://archive.ics.uci.edu/ml/machine-learning-databases/breast-cancer-wisconsin/breast-cancer-wisconsin.data",
          header=FALSE)

请注意，header参数 for的默认read.csv值为TRUEso 为了获取您需要将其设置为的所有行FALSE。

将名称添加到 data.frame 中的不同列

names(test) <- c("A","B","C","D","E","F","G","H","I","J","K")

或据我了解的替代方法和更快（不重新加载整个数据集）：

colnames(test) <- c("A","B","C","D","E","F","G","H","I","J","K")
于 2012-12-24T13:38:35.657 回答
4

如果您colnames有data.frame或matrix

于 2012-12-25T11:14:30.803 回答
1

您还可以通过创建一个值数组并分配该数组来解决此问题：

newheaders <- c("a", "b", "c", ... "x")
colnames(data) <- newheaders
于 2020-08-25T09:59:36.013 回答
0

如果您有兴趣从.txt文件中读取一些数据并且只将该文件的几列提取到具有自定义标头.txt的新文件中，则以下代码可能有用：

# input some data from 2 different .txt files:
civit_gps <- read.csv(file="/path2/gpsFile.csv",head=TRUE,sep=",")
civit_cam <- read.csv(file="/path2/cameraFile.txt",head=TRUE,sep=",")

# assign the name for the output file:
seqName <- "seq1_data.txt"

#=========================================================
# Extract data from imported files
#=========================================================
# From Camera:
frame_idx <- civit_cam$X.frame
qx        <- civit_cam$q.x.rad.
qy        <- civit_cam$q.y.rad.
qz        <- civit_cam$q.z.rad.
qw        <- civit_cam$q.w

# From GPS:
gpsT      <- civit_gps$X.gpsTime.sec.
latitude  <- civit_gps$Latitude.deg.
longitude <- civit_gps$Longitude.deg.
altitude  <- civit_gps$H.Ell.m.
heading   <- civit_gps$Heading.deg.
pitch     <- civit_gps$pitch.deg.
roll      <- civit_gps$roll.deg.
gpsTime_corr <- civit_gps[frame_idx,1]

#=========================================================
# Export new data into the output txt file
#=========================================================
myData <- data.frame(c(gpsTime_corr),
                     c(frame_idx),
                     c(qx),
                     c(qy),
                     c(qz),
                     c(qw))
# Write :
cat("#GPSTime,frameIdx,qx,qy,qz,qw\n", file=seqName)
write.table(myData, file = seqName,row.names=FALSE,col.names=FALSE,append=TRUE,sep = ",")

当然，您应该根据自己的应用程序修改此示例脚本。

于 2019-01-18T11:59:57.937 回答
0

这应该可以解决，

      kable(dt) %>%
      kable_styling("striped") %>%
      add_header_above(c(" " = 1, "Group 1" = 2, "Group 2" = 2, "Group 3" = 2))
#OR
kable(dt) %>%
  kable_styling(c("striped", "bordered")) %>%
  add_header_above(c(" ", "Group 1" = 2, "Group 2" = 2, "Group 3" = 2)) %>%
  add_header_above(c(" ", "Group 4" = 4, "Group 5" = 2)) %>%
  add_header_above(c(" ", "Group 6" = 6))

有关更多信息，您可以查看链接

于 2020-02-18T10:05:16.453 回答