尝试在R中复制excel图表

在R中复制Excel图表可以通过以下步骤实现：

1. 首先，确保已经安装了R和相关的包，如readxl和openxlsx。可以使用以下命令安装这些包：

install.packages("readxl")
install.packages("openxlsx")

1. 使用readxl包中的read_excel()函数读取Excel文件。例如，假设要复制的Excel文件名为chart.xlsx，并且图表位于第一个工作表中的A1单元格到E10单元格范围内，可以使用以下代码读取数据：

library(readxl)

data <- read_excel("chart.xlsx", sheet = 1, range = "A1:E10")

1. 使用openxlsx包中的createWorkbook()函数创建一个新的Excel工作簿，并使用addWorksheet()函数添加一个工作表。例如，可以使用以下代码创建一个名为Copy的工作表：

library(openxlsx)

wb <- createWorkbook()
addWorksheet(wb, "Copy")

1. 使用openxlsx包中的writeData()函数将数据写入新创建的工作表中。例如，可以使用以下代码将数据写入Copy工作表的A1单元格：

writeData(wb, sheet = "Copy", data, startCol = 1, startRow = 1)

1. 使用openxlsx包中的addPlot()函数将图表添加到新创建的工作表中。例如，可以使用以下代码将一个散点图添加到Copy工作表的C1单元格：

addPlot(wb, sheet = "Copy", x = "A1:A10", y = "B1:B10", type = "scatter", startCol = 3, startRow = 1)

1. 最后，使用saveWorkbook()函数保存新创建的工作簿。例如，可以使用以下代码将工作簿保存为名为copy_chart.xlsx的Excel文件：

saveWorkbook(wb, "copy_chart.xlsx", overwrite = TRUE)

通过以上步骤，你可以在R中复制Excel图表并保存为新的Excel文件。请注意，这只是一个示例，你可以根据需要进行调整和扩展。