plot4 <-ggplot(sums, aes(x = rownames(sums), y = sum(element_counts1,element_counts2,element_counts3,element_counts4))) + geom_bar(stat = "identity", fill = "pink") + geom_text(aes(label = Totol), vjust = -0.5) + xlab("feeling") + ylim(200,700)+ ylab("counting") + ggtitle("Feeling-Counting_1") + theme(axis.text.x = element_text(angle = 45, hjust = 1), plot.title = element_text(hjust = 0.5))

这是一个使用 ggplot2 库创建的示例图形。如果你想将它为 PDF 文件，可以使用以下步骤：

1. 创建一个新的 PDF 设备，并设置它的宽度和高度。

pdf("plot4.pdf", width = 8, height = 6)

上述代码将创建一个名为 "plot4.pdf" 的 PDF 文件，并设置它的宽度为 8 英寸，高度为 6 英寸。你可以根据需要调整这些尺寸。

2. 绘制图形。

plot4

3. 关闭 PDF 设备，保存文件。

dev.off()

完整的代码示例：

library(ggplot2)

# 创建一个示例数据框
sums <- data.frame(
  rownames = c("Feeling1", "Feeling2", "Feeling3"),
  element_counts1 = c(100, 200, 300),
  element_counts2 = c(150, 250, 350),
  element_counts3 = c(200, 300, 400),
  element_counts4 = c(250, 350, 450),
  Total = c(700, 1100, 1500)
)

# 创建图形
plot4 <- ggplot(sums, aes(x = rownames, y = sum(element_counts1, element_counts2, element_counts3, element_counts4))) +
  geom_bar(stat = "identity", fill = "pink") +
  geom_text(aes(label = Total), vjust = -0.5) +
  xlab("feeling") +
  ylim(200, 700) +
  ylab("counting") +
  ggtitle("Feeling-Counting_1") +
  theme(axis.text.x = element_text(angle = 45, hjust = 1),
        plot.title = element_text(hjust = 0.5))

# 创建 PDF 设备
pdf("plot4.pdf", width = 8, height = 6)

# 绘制图形
plot4

# 关闭 PDF 设备
dev.off()

当运行上述代码后，你将得到一个名为 "plot4.pdf" 的 PDF 文件，其中包含你的图形。你可以根据需要调整 PDF 文件的尺寸和图形的样式。