问题描述
我合并了两个数据框:
df1 <- read_csv("df1.csv",col_types = cols(Date = col_date(format = "%d/%m/%Y")))
df2 <- read_csv("df2.csv",col_types = cols(Date = col_date(format = "%d/%m/%Y")))
df3 <-left_join(df1,df2,by = 'Date',df1 = TRUE)
write.table(df3,file = "df3.csv",sep = "," )
在导出 df3 之前,我的所有列都是数字列,但在导出后它们被转换为逻辑列,因此我执行以下操作:
df3 <- read_csv("df3.csv",col_types = cols(Date = col_date(format = "%d/%m/%Y")))
cols <- c(sapply(df3,is.logical))
Q[cols] <- lapply(df3[cols],as.numeric)
但是一旦我再导出一次,数据框就会恢复逻辑,这会影响我的后续功能。
我的疑问是:
- 如何在导出数据框时保留列的数值类。
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)