如何解决复制行数据和粘贴-> R的问题
我有一个ascii文件,其中包含一周的数据。此数据是文本文件,没有标题名称。我目前几乎已经使用R完成了一个较小的任务,并且也尝试使用Python。都不是专业人士,这是一个陡峭的学习曲线。这是我的数据/代码,用于根据我在R中创建的chr的特定顺序将行粘贴到一起,该行不起作用。
每列保存不同的数据,但行数据才是最重要的。例如:
column 1 column 2 column 3 column 4
Row 1 Name Age YR Birth Date
Row 2 Middle Name School name siblings # of siblings
Row 3 Last Name street number street address
Row 4 Name Age YR Birth Date
Row 5 Middle Name School name siblings # of siblings
Row 6 Last Name street number street address
Row 7 Name Age YR Birth Date
Row 8 Middle Name School name siblings # of siblings
Row 9 Last Name street number street address
我有一个文件夹可以迭代或循环,其中一些文件包含100行,另一些文件包含1000行。我写了一段代码,删除了我不需要的所有行,并写入了一个新的.csv文件,但是,任何粘贴和/或合并都不会产生理想的结果。
我需要的代码是从整个文件中仅选择“名称”和“姓氏”行(及其相邻数据),然后将“姓氏”行粘贴到“名称”行末尾旁边。每个文件的列数相同,但行数不同。
我已将文件保存到数据帧,并尝试合并/粘贴/绑定(r和c)行/列,结果仍然与我的需要相去甚远。到目前为止,Rbind效果最好,但是与其产生的数据在同一行上一个接一个地粘贴,不如生成数据,而是将它们彼此并排粘贴在这样的列中: 即:
Name Last Name Name Last Name Name Last Name
Age Street Num Age Street Num Age Street Num
YR Street address YR Street address YR Street address
Birth NA Birth NA Birth NA
Date NA Date NA Date NA
我尝试对他们或家庭进行[c(姓名,年龄,YR出生...)],但我没有成功。我查看了我有多少列,并尝试添加更多列以解决粘贴问题,取而代之的是它填充了第1行中的数据。
我真的很茫然,如果有人可以提供一些见解,我将非常感激。我比某些人新,但不如其他人新。我获得的结果如下:
Name Age YR Birth date Last Name Street Num Street Address NA NA
Name Age YR Birth date Last Name Street Num Street Address NA NA
Name Age YR Birth date Last Name Street Num Street Address NA NA
尝试的代码:
rowData <- rbind(name$Name,name$Age,name$YRBirth,name$Date)
colData <- cbind(name$V1 == "Name",name$V1 == "Last Name")
合并和粘贴也不起作用。我试图将每个变量创建为新的数据框,但仍未达到我想要的结果。有人有见识吗?
解决方法
好吧,因此,如果我正确理解了您的情况,则希望先对数据进行切片,然后从第一行开始每隔三行拉出一条,然后从第三行开始每隔三行拉出一条。我会这样做(假设您的数据在df
中:
df1 <- df[3*(1:(nrow(df)/3)) - 2,]
df2 <- df[3*(1:(nrow(df)/3)),]
一旦有了这些,就可以将它们拍打在一起,但是要使用rbind
而不是使用cbind
。然后,您可以删除NA列并重命名它们。
df3 <- cbind(df1,df2)
df3 <- df3[1:7]
colnames(df3) <- c("Name","Age","YR","Birth date","Last Name","Street Num","Street Address")
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。