2013-03-06 34 views

回答

20

鹼基r功能是stripchart小例子一個摸索出例如:

set.seed(1); A <- sample(0:10, 100, replace = TRUE) 
stripchart(A, method = "stack", offset = .5, at = .15, pch = 19, 
      main = "Dotplot of Random Values", xlab = "Random Values") 

enter image description here

您還可以offset起到增加堆疊點之間的差距,並pch改變點的類型。

+0

如何使x座標變爲0,1,2,3,4,5,6,7,8,9;不是0,2,4,6,8? – 2013-03-09 13:56:09

+0

@it_is_a_literature:改變x軸刻度標記,你可以在'stripchart'調用中添加'axes = FALSE',然後運行'axis(1,1:10)'。 – 2015-05-08 17:55:47

7
library(ggplot2) 
ggplot(mtcars, aes(x = mpg)) + geom_dotplot() 
+0

請添加代碼的結果以改善答案的質量。 – buhtz 2016-12-10 00:28:32

+0

這是一個不添加圖片的投票? 'mtcars'是一個內置的數據集,所以任何人都可以運行這個代碼。隨意編輯並添加圖形,如果你願意。 – 2016-12-23 18:56:34

0

僅供參考這裏是y軸點圖的一個例子:

downv<- data.frame(
y<- c(rep(3,14),6,6,9,9,9,9,9.5,9.5,10.5,10.5,10.5,10.5,rep(11,8)), 
l2<- c(rep(8,4),rep(6,6),4,4,8,8,8,4,rep(6,6),8,8,4,4,rep(6,8)), 
l<- c(rep(0,7,),rep(1,7),0,1,0,0,1,1,0,1,0,0,1,1,rep(0,4),rep(1,4)) 
) 

ggplot(downv, aes(x = factor(l), y = y, fill = factor(l2))) + 
    geom_dotplot(binaxis = "y", stackdir = "center", position = "dodge", dotsize=3, stackratio = .7) + 
scale_fill_manual(values=c("black", "black", "black")) 


#need square aspect ratio