我有一个有点复杂的数据框,其中每行都是一个列表,每列代表一个不同的变量,如下图所示.

https://i.stack.imgur.com/2FeH4.png

我想使用以下代码打印特定变量周围信息的.txt文件.

#LOAD THE DATA IN
library(raveio)
base :: setwd("path")
filenames <- base::list.files(
  path = ("path"), # Insert your relevant filepath here
  recursive = TRUE,
  pattern = "*.mat"
)
#CONVERT DATA TO LIST
mylist <- lapply(filenames, function(x) read_mat(x))

#CONVERT LIST TO DATAFRAME
library(tidyverse)
mydata <- map_dfr(mylist, ~as.data.frame(t(.)))

#WRITE DATA TO .txt FILE
sink("mydata.txt")
print(mydata$stim)
sink()

但是,使用此代码会生成以下链接中所示的.txt文件.

https://i.stack.imgur.com/ggYTj.png

我希望显示与rtStart等变量相关联的值,而不是只显示"数字",但我不确定如何操作.它可以很好地与"p"变量配合使用,但不适用于"stim".我try 了取消嵌套并使用unlist函数,但无济于事.

例如,我希望输出文件如下所示:

001
rtStart 8867
rtEnd 90382
Category 1
...

以此类推,适用于每个科目

推荐答案

我不太确定我是否理解了你的要求,所以我可能是马克的方式,但如果你想只是把你的初始框架(这是所谓的"文件名",我想?)我会做的事

df <- filenames %>%
   mutate(across(everything(), ~sapply(.,paste0, collpase = ",")))
write.table(df, "mydata.txt")

当然,如果只有一个变量(time、p或stim),那么在变异之前先 Select 它即可. 希望能有所帮助

R相关问答推荐

卸载安装了BRM的模型发出的警告

geom_Ribbon条件填充创建与数据不匹配的形状(ggplot 2 r)

从gtsummary包中使用tBL_strata()和tBL_summary()时删除变量标签

在"gt"表中添加第二个"groupname_col",而不连接列值

用预测NLS处理R中生物学假设之上的误差传播

然后根据不同的列值有条件地执行函数

R根据条件进行累积更改

我如何才能找到FAMILY=POISSON(LINK=&Q;LOG&Q;)中的模型预测指定值的日期?

使用范围和单个数字将数字与字符串进行比较

展开对数比例绘图的轴(添加填充)

按时间顺序对不同事件进行分组

汇总数据的Sheffe检验的P值(平均值和标准差)

如何从向量构造一系列双边公式

我将工作代码重构为一个函数--现在我想不出如何传递轴列参数

按组和连续id计算日期差

快速合并R内的值

长/纬点继续在堪萨斯-SF结束,整齐的人口普查

如何更改包中函数中的参数?

如何修改Rust中的R字符串并将其赋给新的R变量,并使用extendr保留原始R字符串

如何在R曲线图弹出窗口中更改r和theta标签