条形图，将整数绘制为字符串

Question

“性别”存储为整数：1 和 0 我正在尝试在条形图中将其绘制为 X 轴上的“男性”和“女性” 与赌徒的投注总数相比。

我认为有一种更简单的方法可以做到这一点，而不是将数据集中的每个输入都更改为字符串。

我不是试图给男性一个蓝色和女性紫色或黄色。

谢谢大家

代码：

# scatter plot of age of Gamblers correlated with number of bets 
#alpha keeps from over plotting remove if unnecessary
p_1 <- ggplot(data = data, aes(x = Gender, y = BetsA )) +
    geom_point(alpha = 0.1)
p_1 + ggtitle(label = "Gender Correlated with Total Number of Bets") + # for the main title
xlab(label = "Gender of Gambler") + # for the x axis label
ylab(label = "Total Number of Bets" ) # for the y axis label

Answer 1

一种选择是首先将您的Gender 列转换为factor。之后，您可以使用 scale_x_discrete 的 labels 参数为 0 和 1 分配所需的标签。对于着色，您基本上可以这样做。只需将factor(Gender) 映射到color aes，然后通过scale_color_manual 的values 参数设置您想要的颜色：

使用一些假的随机示例数据：

set.seed(123)

# Create example data
data <- data.frame(
  Gender = rep(c(0,1), 100),
  BetsA = runif(200, 0, 40000)
)

library(ggplot2)

ggplot(data = data, aes(x = factor(Gender), y = BetsA, color = factor(Gender) )) +
  geom_point(alpha = 0.1) +
  scale_x_discrete(labels = c("0" = "Male", "1" = "Female")) +
  scale_color_manual(values = c("0" = "blue", "1" = "purple"), labels = c("0" = "Male", "1" = "Female")) +
  ggtitle(label = "Gender Correlated with Total Number of Bets") +
  xlab(label = "Gender of Gambler") +
  ylab(label = "Total Number of Bets" )