将数据框写入列数据包含分号的以分号分隔的 CSV?

Writing data frame to semicolon-delimited CSV where column data contains semi-colon?

如何将以下数据完整写入 CSV?我想将此数据写入一个以分号为分隔符的 CSV 文件,但由于分号,第二行正在移动。

我有一个包含以下数据的数据框:

             a <- c(1,2,3,4)
             b <- c("hello","hello;world","hey","there")
             c <- c(10,20,30,40)
             df <- data.frame(a,b,c)
             df
             df
               a           b  c
             1 1       hello 10
             2 2 hello;world 20
             3 3         hey 30
             4 4       there 40

引用输出:

a<-c(1,2,3,4)
b<-c("hello","hello;world","hey","there")
c<-c(10,20,30,40)
df<-data.frame(a,b,c)
write.table(df, file="blah.csv",quote=TRUE, sep = ";")

给予

"a";"b";"c"
"1";1;"hello";10
"2";2;"hello;world";20
"3";3;"hey";30
"4";4;"there";40