技术问答r璇█鏁版嵁鎬庝箞瀵煎嚭鎴恱lsx鏍煎紡 - 扬州沐宇科技

鍦≧璇█涓紝鍙互浣跨敤openxlsx鍖呮潵灏嗘暟鎹鍑轰负xlsx鏍煎紡銆備笅闈㈡槸涓€涓畝鍗曠殑绀轰緥浠ｇ爜锛?/p>

# 瀹夎openxlsx鍖?/span>
install.packages("openxlsx")

# 鍔犺浇openxlsx鍖?/span>
library(openxlsx)

# 鍒涘缓绀轰緥鏁版嵁
data <- data.frame(
  Name = c("John", "Jane", "Mike"),
  Age = c(25, 30, 35),
  Salary = c(50000, 60000, 70000)
)

# 灏嗘暟鎹鍑轰负xlsx鏍煎紡
write.xlsx(data, file = "data.xlsx", sheetName = "Sheet1")

涓婅堪浠ｇ爜涓紝棣栧厛浣跨敤install.packages()鍑芥暟瀹夎openxlsx鍖咃紝鐒跺悗浣跨敤library()鍑芥暟鍔犺浇璇ュ寘銆傛帴涓嬫潵锛屽垱寤轰竴涓ず渚嬫暟鎹data銆傛渶鍚庯紝浣跨敤write.xlsx()鍑芥暟灏嗘暟鎹鍑轰负xlsx鏍煎紡锛屽苟鎸囧畾瀵煎嚭鐨勬枃浠跺悕涓?quot;data.xlsx"锛屽伐浣滆〃鍚嶇О涓?quot;Sheet1"銆?/p>

杩愯涓婅堪浠ｇ爜鍚庯紝灏变細鍦ㄥ伐浣滅洰褰曚腑鐢熸垚涓€涓悕涓?quot;data.xlsx"鐨剎lsx鏂囦欢锛屽叾涓寘鍚鍑虹殑鏁版嵁銆?/p>