R语言柱状图添加多总统数据后因子转数字问题求助

Hey there! Let's work through this bar plot problem you're facing—totally get why it's frustrating when those word labels turn into numbers out of nowhere!

The Root Cause #

When you use c(dfTrump[1:3,]$word, dfObama[1:3,]$word) to combine your word labels, if the word columns in your data frames are factor type (super common if you loaded text data with default settings), R will automatically convert them to their underlying integer codes. That's exactly why your x-axis shows numbers instead of words!

Quick Fix for Your Current Code #

Just convert the factor columns to character type before concatenating them. Here's how to adjust your second barplot line:

barplot(c(dfTrump[1:3,]$freq, dfObama[1:3,]$freq), 
        las = 1, 
        names.arg = c(as.character(dfTrump[1:3,]$word), as.character(dfObama[1:3,]$word)), 
        col = c(rep("red",3), rep("blue",3)), # Bonus: Color-code each president's bars for clarity
        main = "Most Frequent Words of Trump and Obama\nDuring Their Inauguration Speeches", 
        ylab = "Frequency of Words", 
        xlab = "Words")

Better Approach for 11 Presidents #

Since you need to scale this to 11 presidents, manually concatenating each dataset will get messy fast. Let's use a more scalable workflow:

1. Combine all your data into a single data frame
   First, add a "president" column to each dataset to track which words belong to who, then bind them together:

   # Example for Trump and Obama (repeat this pattern for all 11 presidents)
   trump_top3 <- dfTrump[1:3,]
   trump_top3$president <- "Donald Trump"
   
   obama_top3 <- dfObama[1:3,]
   obama_top3$president <- "Barack Obama"
   
   # Combine all datasets (for 11 presidents, use a list + lapply to automate this step!)
   combined_data <- rbind(trump_top3, obama_top3)
   

   For 11 presidents, store all your data frames in a list (e.g., president_dfs <- list(trump = dfTrump, obama = dfObama, ...)), then use lapply to add the president column and extract top words in one go—way less repetitive!

2. Use ggplot2 for Flexible, Scalable Plots
   The base R barplot works, but ggplot2 is way easier to adjust when you have multiple groups. Here's a sample plot:

   # Install ggplot2 if you haven't already
   # install.packages("ggplot2")
   library(ggplot2)
   
   ggplot(combined_data, aes(x = word, y = freq, fill = president)) +
     geom_bar(stat = "identity", position = "dodge") # Side-by-side bars (use "stack" for stacked)
     labs(
       title = "Top 3 Frequent Words in Presidential Inauguration Speeches",
       x = "Words",
       y = "Frequency"
     ) +
     theme(axis.text.x = element_text(angle = 45, hjust = 1)) # Rotate x-labels to avoid overlap
   

   This will automatically handle your word labels correctly, and adding more presidents just means adding their data to combined_data—no extra work needed for the plot!

Quick Tips for R Beginners #

• Always check your data types with class(df$column_name)—if word is a factor, convert it to character with df$word <- as.character(df$word) to avoid unexpected conversions.
• For repetitive tasks (like processing 11 presidents), use lists and lapply/purrr functions to save time and avoid errors.
• ggplot2 has a steep learning curve at first, but it's worth it for complex visualizations—there are tons of beginner-friendly tutorials online!

内容的提问来源于stack exchange，提问作者Chris M.