Jak wykreślić następujące w R?

Question

Jestem nowy w kreśleniu w R, więc proszę o pomoc. Powiedz, że mam następującą matrycę.

mat1 <- matrix(seq(1:6), 3) 
dimnames(mat1)[[2]] <- c("x", "y") 
dimnames(mat1)[[1]] <- c("a", "b", "c") 
mat1 
    x y 
a 1 4 
b 2 5 
c 3 6 

że chce wykreślić tego, gdzie oś x zawiera co rowname (a, b, c), a na osi y, to wartość każdej rowname (a = 1 do 4, b = 2 i 5, c = 3 i 6). Każda pomoc będzie doceniona!

|  o 
| o x 
| o x 
| x 
|_______ 
    a b c 

Answer 1

Oto jeden ze sposobów grafika zastosowaniem zasady:

plot(c(1,3),range(mat1),type = "n",xaxt ="n") 
points(1:3,mat1[,2]) 
points(1:3,mat1[,1],pch = "x") 
axis(1,at = 1:3,labels = rownames(mat1)) 

Edited zawierać inny symbol kreślenia

Answer 2

matplot() został zaprojektowany do danych w tej właśnie formie:

matplot(y = mat1, pch = c(4,1), col = "black", xaxt ="n", 
     xlab = "x-axis", ylab = "y-axis") 
axis(1, at = 1:nrow(mat1), labels = rownames(mat1))    ## Thanks, Joran 

Answer 3

Można to zrobić w grafice bazowych, ale jeśli masz zamiar używać R o wiele więcej niż to myślę, że warto poznawać pakiet ggplot2. Zauważ, że ggplot2 przyjmuje tylko ramki danych - ale często lepiej jest przechowywać dane w ramkach danych niż w macierzach.

d <- as.data.frame(mat1) #convert to a data frame 
d$cat <- rownames(d) #add the 'cat' column 
dm <- melt(d, id.vars) 
dm #look at dm to get an idea of what melt is doing 

require(ggplot2) 
ggplot(dm, aes(x=cat, y=value, shape=variable)) #define the data the plot will use, and the 'aesthetics' (i.e., how the data are mapped to visible space) 
    + geom_point() #represent the data with points 

Answer 4

I wreszcie rozwiązanie kratownica

library(lattice) 
dfmat <- as.data.frame(mat1) 
xyplot(x + y ~ factor(rownames(dfmat)), data=dfmat, pch=c(4,1), cex=2)