Как убрать разрыв строки из вывода CSV

Question

Я пытаюсь добавить новый столбец в мой CSV-файл, чтобы добавить «1» в новый столбец, если столбец «Описание» содержит текстовую строку. Похоже, код работает, но write.csv портит выходной файл, добавляя разрывы строк в столбец «Описание»

Я новичок в R и пробовал несколько вещей, включая использование библиотеки (stringr)

data1 = str_replace_all(data1, "[\r\n]" , "")

однако он застревает!

data = read_excel("database.xlsx")
data1 = sqldf(c("alter table data add newcolumn numeric","select * from data"))
data1 = sqldf(c("update data1 set newcolumn = case when Description LIKE '%pyramidlike%' then 1 else 0
        end", "select * from data1"))
write.csv(data1, "data1.csv")

Answer 1

Вы не включили пример данных, чтобы сделать его воспроизводимым примером. Но, тем не менее, есть более простые способы достижения того, что вы хотите сделать, и я буду использовать примерный набор данных (iris):

library(tidyverse)

# will use the IRIS dataset instead of your XLSX, adjust as needed.
data(iris)
new_iris <- iris %>% 
  mutate(
    flag = ifelse(Species == "setosa", 1, 0)  # add a new column
  )

Просто чтобы прояснить, что произошло, давайте посмотрим на структуруфреймы данных:

> str(iris)
'data.frame':   150 obs. of  5 variables:
 $ Sepal.Length: num  5.1 4.9 4.7 4.6 5 5.4 4.6 5 4.4 4.9 ...
 $ Sepal.Width : num  3.5 3 3.2 3.1 3.6 3.9 3.4 3.4 2.9 3.1 ...
 $ Petal.Length: num  1.4 1.4 1.3 1.5 1.4 1.7 1.4 1.5 1.4 1.5 ...
 $ Petal.Width : num  0.2 0.2 0.2 0.2 0.2 0.4 0.3 0.2 0.2 0.1 ...
 $ Species     : Factor w/ 3 levels "setosa","versicolor",..: 1 1 1 1 1 1 1 1 1 1 ...

> str(new_iris)
'data.frame':   150 obs. of  6 variables:
 $ Sepal.Length: num  5.1 4.9 4.7 4.6 5 5.4 4.6 5 4.4 4.9 ...
 $ Sepal.Width : num  3.5 3 3.2 3.1 3.6 3.9 3.4 3.4 2.9 3.1 ...
 $ Petal.Length: num  1.4 1.4 1.3 1.5 1.4 1.7 1.4 1.5 1.4 1.5 ...
 $ Petal.Width : num  0.2 0.2 0.2 0.2 0.2 0.4 0.3 0.2 0.2 0.1 ...
 $ Species     : Factor w/ 3 levels "setosa","versicolor",..: 1 1 1 1 1 1 1 1 1 1 ...
 $ flag        : num  1 1 1 1 1 1 1 1 1 1 ...

Затем просто запишите фрейм данных в CSV:

# I am using the tidyverse version of the function
write_csv(
  new_iris,
  path = "/path/to/output.csv"
)

В этом конкретном случае нет никакой выгоды от использования sqldf() для манипулирования набором данных. Обычно я использую это, когда я делаю изменения непосредственно в базе данных.

HTH