R语言绘图适配问题：标题及标签无法完整显示

你在使用base R绘制水平条形图时，遇到了标题和x轴标签被截断、无法完整显示的问题，示例代码如下：

plot <- barplot(
      sort(colSums(prop.table(sentimientos_df[, 9:10]))), 
      horiz = TRUE, 
      cex.names = 0.8, 
      las = 1, 
      main = "Positive vs Negative Sentiment", xlab="Percentage"
    )

以下是两种可行的解决办法：

方法1：调整base R绘图边距 #

默认的绘图边距可能不足以容纳标题和标签，你可以在绘图前用par(mar)手动调整边距参数。mar的四个值分别对应底部、左侧、顶部、右侧的边距（单位：行），默认是c(5,4,4,2)+0.1，适当增大顶部和底部的数值即可：

# 调整边距，给顶部和底部留出更多空间
par(mar = c(5, 4, 5, 2) + 0.1)

# 重新绘制图表
plot <- barplot(
      sort(colSums(prop.table(sentimientos_df[, 9:10]))), 
      horiz = TRUE, 
      cex.names = 0.8, 
      las = 1, 
      main = "Positive vs Negative Sentiment", xlab="Percentage"
    )

# 绘图完成后如果需要恢复默认边距，执行下面的代码
# par(mar = c(5,4,4,2)+0.1)

方法2：换用ggplot2绘制（更省心的布局控制） #

如果base R的边距调整不够灵活，推荐使用ggplot2包，它的布局会自动适配元素，也更便于自定义样式：
首先安装并加载ggplot2：

install.packages("ggplot2")
library(ggplot2)

接着整理数据并绘图：

# 先把统计结果整理成ggplot需要的数据框格式
sentiment_stats <- sort(colSums(prop.table(sentimientos_df[, 9:10])))
sentiment_df <- data.frame(
  Sentiment = names(sentiment_stats),
  Percentage = sentiment_stats
)

# 绘制水平条形图
ggplot(sentiment_df, aes(x = Percentage, y = Sentiment)) +
  geom_bar(stat = "identity") +
  labs(title = "Positive vs Negative Sentiment", x = "Percentage") +
  theme_minimal()

如果需要微调标题或标签的间距，还可以通过theme()添加参数：

ggplot(sentiment_df, aes(x = Percentage, y = Sentiment)) +
  geom_bar(stat = "identity") +
  labs(title = "Positive vs Negative Sentiment", x = "Percentage") +
  theme_minimal() +
  theme(
    plot.title = element_text(margin = margin(b = 15)), # 标题下方留间距
    axis.title.x = element_text(margin = margin(t = 10)) # x轴标签上方留间距
  )

内容的提问来源于stack exchange，提问作者Juan Jose Echeverry De Mendoza