的R - 改變X軸值類別

我想畫出散點圖散點圖此數據的R - 改變X軸值類別

head(data) 
    Subject Length Verdict 
1  2 4575 Partial 
2  2 5060 Partial 
3  2 8978 5'DEFECT 
4  2 7224 Partial 
5  2 7224 Partial 
6  7 8978 5'DEFECT

我得到一個散點圖是這樣的：

我有例如患者1,2,6,7,10。 R正在將我的主題的名稱和它們用作x值。我想改變這一點，以便數據點出現在每個患者的上方（不被視爲值，而是視爲類別）。

感謝您的幫助！

這是我寫給得到這個散點圖散點圖代碼：

ggplot(final, 
     aes(x=Subject,y=Length,colour=Verdict,shape=Verdict), group=Subject) + 
    geom_point(position=position_jitter(width=0.1,height=0)) + 
    scale_shape_manual(values=c(5,0,1,4,6)) + 
    scale_colour_manual(values=c("blue","red","green","black","violet")) + 
    scale_y_continuous(breaks=c(2000,4000,6000,8000,10000)) + 
    labs(y="Amplicon Size in bps")

來源

2017-04-05 Radwa Sharaf

嘗試用'x = as.factor（Subject）'或'x = as.character（Subject）'替換'x = Subject'。 –

哦，這是美麗的邁克！非常感謝。 –

使用您發佈的樣本數據（6條意見），你可以用as.factor或as.character容易做到這一點。我建議首先將你的Subject變量轉換成一個字符（因爲它聽起來像你不希望它被視爲數字）。

這應該工作：

data$Subject <- as.character(data$Subject) 

ggplot(data, 
     aes(x=Subject,y=Length,colour=Verdict,shape=Verdict), group=Subject) + 
    geom_point(position=position_jitter(width=0.1,height=0)) + 
    scale_shape_manual(values=c(5,0,1,4,6)) + 
    scale_colour_manual(values=c("blue","red","green","black","violet")) + 
    scale_y_continuous(breaks=c(2000,4000,6000,8000,10000)) + 
    labs(y="Amplicon Size in bps")

數據：

data <- structure(list(Subject = c(2L, 2L, 2L, 2L, 2L, 7L), Length = 
        c(4575L, 5060L, 8978L, 7224L, 7224L, 8978L), Verdict = c("Partial", "Partial", 
        "5'DEFECT", "Partial", "Partial", "5'DEFECT")), .Names = c("Subject", 
        "Length", "Verdict"), row.names = c(NA, -6L), class = "data.frame")

來源

2017-04-05 00:23:24

你可以使用as.factor(data$Subject)和scale_x_discrete("Subject")。這裏假設一個例子：

data <- read.table(textConnection('i Subject Length Verdict 
1 2 4575 Partial 
2 2 5060 Partial 
3 2 8978 5DEFECT 
4 2 7224 Partial 
5 2 7224 Partial 
6 7 8978 5DEFECT'), header = TRUE, stringsAsFactors = FALSE) 

data$Subject <- as.factor(data$Subject) 
p = ggplot(data) + geom_point(aes(x=Subject,y=Length, colour=Verdict))+ scale_shape_manual(values= c(5,0,1,4,6)) 
p = p + scale_colour_manual(values=c("blue","red","green","black","violet")) 
p = p+ scale_x_discrete("Subject") 
p = p + scale_y_continuous(breaks=c(2000,4000,6000,8000,10000))+labs(y="Amplicon Size in bps") 
p

來源

2017-04-05 00:31:44

的R - 改變X軸值類別

回答

相關問題