Question

我将此表作为输出，我想将其保存为csv文件

value<-cbind(c(rnorm(100,500,90),rnorm(100,800,120)))
genotype<-cbind(c(rep("A",100),rep("B",100)))
gender<-rep(c("M","F","F","F"),50)
df<-cbind(value,genotype,gender)
df<-as.data.frame(df)
colnames(df)<-c("value","genotype","gender")
df$value<-as.numeric(as.character(df$value))
library(Publish)
summary(univariateTable(gender ~ Q(value) + genotype, data=df))

以上命令的输出是：

  Variable        Level   gender = F (n=150)    gender = M (n=50)
1    value median [iqr] 651.4 [499.2, 781.0] 636.8 [539.8, 824.2]
2 genotype            A            75 (50.0)            25 (50.0)
3                     B            75 (50.0)            25 (50.0)
         Total (n=200) p-value
1 644.6 [509.8, 787.5]  0.4859
2           100 (50.0)        
3           100 (50.0)  1.0000

为了将上表导出为.csv文件，我使用此代码

write.csv(summary(univariateTable(gender ~ Q(value) + genotype, data=df)),file="file.csv")

问题在于，四分位数范围的逗号分隔的上限值：, 781.0，, 824.2和, 787.5最终位于不同的列中，因此第1行最终会产生三个额外的列和表格不准确。

有什么办法可以避免吗？

Answer 1

尝试使用quote=TRUE选项。 Excel应该能够区分用于分隔列的,和部分数据。

这是带有一个附加选项的命令。

write.csv(
    summary(univariateTable(gender ~ Q(value) + genotype, data=df)),
    file="file.csv", quote = TRUE)

将表导出为csv文件，同时保留正确的列号

1 个答案: