Question

挣扎着这个。我有25个数据项，我想用5列气泡绘制。因此可以重新创建绘图：

 xcord <- c(1,1,1,1,1,2,2,2,2,2,3,3,3,3,3,4,4,4,4,4,5,5,5,5,5)
 ycord <- c(1,2,3,4,5,1,2,3,4,5,1,2,3,4,5,1,2,3,4,5,1,2,3,4,5)
 zsize <- c(2,1,2,3,6,8,9,1,4,5,5,6,7,8,8,9,5,5,5,5,1,8,1,1,12)

在更改参数之前保存参数：

 op <- par()
 dev.off()

更改参数：

 par (mfrow=c(1,0), mar=c(2,2,2,2), oma=c(2,2,2,2))

使用符号绘图：

 symbols(xcord, ycord, zsize, inches=0.3, fg="white", bg="red", xlab="Events", ylab="Diagnoses", tck=0, xaxt="n", yaxt="n")     

 mtext("Rheumatic diagnoses by cerebrovasular events", line=2, font=2, cex=1.2)

我对上面的情节感到满意，故意使用tck = 0，xaxt =“n”，yaxt =“n”来清除轴。我想手动覆盖自定义文本，使用自定义坐标（使用sysmbols图）控制，但无法执行此操作。我尝试了一些par参数和轴函数。

我也试过让轴离开：

 symbols(xcord, ycord, zsize, inches=0.3, fg="white", bg="red", xlab="Events", ylab="Diagnoses")

但不知道如何将输出（1,2,3,4,5）更改为我自己的自定义轴标签。

谢谢。

Answer 1

您正在寻找axis功能（有关详细信息，请参阅?axis），例如用 A，B，C，D，E 替换1:5：

axis(side=1, at=1:5, labels=LETTERS[1:5])

将自定义轴叠加到由符号创建的绘图

1 个答案: