嘿，我来帮你搞定这个X轴无法完整显示数据点的问题！你提到原始X轴数据范围是5.2到57.9，想把轴范围设为0到60，但要注意你在代码里对ownership..pct.做了对数转换，所以绘图时实际用的是转换后的值，直接设原始数值范围会不对，下面给你两种可行的解决方案：

方案1：直接设置对数转换后的X轴范围 #

我们需要把原始的0和60转换成对数后的值（因为log(0)是负无穷，所以用接近0的正数比如0.1来代替），在plot()函数里添加xlim参数即可：

library(RColorBrewer)
my.colors <- brewer.pal(7, "RdBu")
plot(x = log(ScatPlot$ownership..pct.), 
     y = ScatPlot$firearm.law.stringency,
     cex = ScatPlot$death.rate,
     col = my.colors[ScatPlot$state],
     main = "Death Rate given % Ownership and Law Stringency",
     xlim = c(log(0.1), log(60))  # 添加这行指定X轴范围
)

这样设置后，X轴会覆盖从近似0到60的原始数据对应的对数范围，确保所有5.2-57.9的数据点都能完整显示。

方案2：让X轴显示原始百分比数值（更直观） #

如果想让X轴刻度显示的是0-60的原始百分比，而不是对数转换后的数值，可以先隐藏默认轴，再自定义轴刻度：

library(RColorBrewer)
my.colors <- brewer.pal(7, "RdBu")
# 先绘制不带X轴的散点图
plot(x = log(ScatPlot$ownership..pct.), 
     y = ScatPlot$firearm.law.stringency,
     cex = ScatPlot$death.rate,
     col = my.colors[ScatPlot$state],
     main = "Death Rate given % Ownership and Law Stringency",
     xlab = "Ownership (%)",  # 设置X轴标签
     xaxt = "n"  # 关闭默认X轴绘制
)
# 自定义X轴：刻度位置是原始数值的对数，标签显示原始数值
axis(side = 1, 
     at = log(c(0, 10, 20, 30, 40, 50, 60)),  # 对应原始数值的log位置
     labels = c(0, 10, 20, 30, 40, 50, 60)    # 显示的刻度标签
)

小提醒 #

如果你的ownership..pct.数据里有0值，log(0)会产生-Inf导致绘图报错，这时候可以用log(ScatPlot$ownership..pct. + 1)来避免，或者提前过滤掉0值，具体看你的数据情况~

内容的提问来源于stack exchange，提问作者Emily Blegvad