Почему Android Pie AVD такие большие

Альтернатива в аналогичном ключе ответа @Thomas, но с немного меньшей типизацией. Отправьте вывод из write.csv в строку символов (capture.out). Соедините строку (paste) и разделите элементы с помощью строк (collapse = \n). Запись в файл с помощью cat.

x <- capture.output(write.csv(df, row.names = FALSE, quote = FALSE))
cat(paste(x, collapse = "\n"), file = "df.csv") 

Вы также можете использовать format_csv из пакета readr для создания символьного вектора с разрывами строк (\n). Удалите последний конец строки \n с помощью substr. Напишите в файл с помощью cat.

library(readr)
x <- format_csv(df)
cat(substr(x, 1, nchar(x) - 1), file = "df.csv")