[英]How to save an R data.frame as CSV with no spaces?
我有以下data.frame
保存為CSV
文件。 當data.frame
保存為CSV
我會在Text
組件后面看到一個點空間(見圖)。 如何在將data.frame
保存為CSV
時避免空間創建? 謝謝
library(lubridate)
library(tidyverse)
DF <- data.frame(Date = seq(as.Date("2001-01-01"), to = as.Date("2001-12-31"), by = "days"), Flow = runif(365, 1, 5)) %>%
mutate(Year = year(Date), Month = month(Date), Day = day(Date), JDay = yday(Date), Text = rep("FLOW_OUT_",365)) %>%
mutate(Format = paste(Text,JDay,"_",Year)) %>%
select(8) %>%
write.csv(file = "Format.csv")
我們可以使用paste0
而不是paste
來避免創建空格,因為paste
的默認sep
選項是sep= " "
...
mutate(Format = paste0(Text,JDay,"_",Year))
...
-完整代碼
DF <- data.frame(Date = seq(as.Date("2001-01-01"), to = as.Date("2001-12-31"),
by = "days"), Flow = runif(365, 1, 5)) %>%
mutate(Year = year(Date), Month = month(Date),
Day = day(Date), JDay = yday(Date), Text = rep("FLOW_OUT_",365)) %>%
mutate(Format = paste0(Text,JDay,"_",Year)) %>%
select(8)
或者另一種選擇是在paste
使用sep
參數
DF <- data.frame(Date = seq(as.Date("2001-01-01"), to = as.Date("2001-12-31"),
by = "days"), Flow = runif(365, 1, 5)) %>%
mutate(Year = year(Date), Month = month(Date),
Day = day(Date), JDay = yday(Date), Text = rep("FLOW_OUT_",365)) %>%
mutate(Format = paste(Text,JDay,"_",Year, sep="")) %>%
select(8)
-輸出
head(DF)
# Format
#1 FLOW_OUT_1_2001
#2 FLOW_OUT_2_2001
#3 FLOW_OUT_3_2001
#4 FLOW_OUT_4_2001
#5 FLOW_OUT_5_2001
#6 FLOW_OUT_6_2001
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.