如何在 Xlim 上绘制因子类的散点图？

Question

When I try to do a scatter plot with jitter, i found it require the Xlim to be numeric

plot(jitter(d$'WHO region'), d$Numeric)
> Error in jitter(d$"WHO region") : 'x' must be numeric

so when I try to change the column to numeric, the output on scatter with jitter became unreadable

as.numeric(as.character(d$'WHO region'))

Please be aware that the WHO region column is Factor as i found character class does not work with scatter plot.

Below is the code i used to input the data

d <- read_csv("WHOSIS_000008.csv", col_types = cols(`WHO region` = col_factor(levels = c("Africa","Americas", "Eastern Mediterranean","Europe", "South-East Asia", "Western Pacific"))))

The result I am supposed to get.

Answer 1

Using the iris data set and stripchart this is pretty close:

data(iris)
stripchart(Sepal.Length~Species, iris, method="jitter", vertical=TRUE, pch=16, col="blue")
mns <- with(iris, tapply(Sepal.Length, Species, mean))
segments((1:3)-.1, mns, (1:3)+.1, mns, lwd=3, col="red")