为xy散点图提供连续比例的离散值

时间:2014-10-24 08:53:01

标签: r ggplot2 scatter-plot continuous

对于这个问题的另一个问题道歉,但我已经阅读了其他问题,但它对我没有任何帮助。

我正在尝试创建一个通用的地球化学xy散点图,一旦代码工作,将根据样本添加几个点。我使用的代码我改编自一些我最初使用的离散x轴,但我已将此变量更改为连续,但它仍然无法正常工作。我不想删除连续缩放命令,因此它会自动设置,因为我想比较具有相似比例的相似图形之间的数据。

以下是我的数据的一个子集:

Si <- structure(list(Zr_TiO2 = c(83.19, 115.64, 90.63, 179.36, 526.05, 104.61, 51.61, 72.66, 255.9, 109.9, 96.11, 246.82, 83.33, 99.33, 86.62), SiO2 = c(54.1, 43.8, 48.92, 39.81, 54.99, 49.28, 49.28, 46.4, 53.9, 49.25, 48.06, 55.31, 48.13, 51.18, 51.09), Sample = c(1L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L)), .Names = c("Zr_TiO2", "SiO2", "Sample"), row.names = c(NA, 15L), class = "data.frame")

这是我正在使用的代码:

a <- Si$Zr_TiO2[Si$Sample == '1']
Si$Zr_TiO2 <- factor(Si$Zr_TiO2,levels = a)
ggplot(data=Si[Si$Sample == '1',]) +
geom_point(aes(y=SiO2, x=Zr_TiO2,group = a), pch=0, colour="black", size=0.8) +
scale_y_continuous("SiO2 (ppm))", limits = c(0,90), breaks=c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90)) +
scale_x_continuous("Zr / TiO2", limits = c(0,500), breaks=c(0,100,200,300,400,500))

0 个答案:

没有答案