He importado los datos en R, ¿cómo hacer un diagrama de dispersión?

Question

Soy nuevo en R, y han importado mi conjunto de datos de la siguiente manera (puntos significa que no haya datos restantes):

> num.csv <- read.csv("c:/num.csv", header=T) 
> print(num.csv) 
      X.Y 
1  22500;482 
2  25842;1 
3  27221;1 
4  32757;1 
5  40152;1 
.  . 
.  . 
.  . 

¿Cómo puedo hacer un gráfico de dispersión para estos datos?

Gracias.

Answer 1

En primer lugar, los datos deben estar en columnas separadas. Mientras que el archivo está etiquetado como "csv", parece que está usando punto y coma para separar en lugar de comas. O bien cambiar el formato del archivo o tratar:

num.csv <- read.csv("c:/num.csv", header=T, sep=";") 

continuación, puede utilizar uno de los diversos paquetes de trazado con R para hacer una gráfica. Por ejemplo:

install.packages("ggplot2"); #ggplot2 is not part of the standard install... 
library(ggplot2); 
qplot(X, Y, data=num.csv); 

No he probado lo anterior, depende de cómo su marco de datos sale de read.csv.

Answer 2

@ La respuesta de patrickmdmnet es el camino a seguir, pero me puse un poco curioso y solo quería probar una solución programática. Yo estaba en su mayoría curiosidad de cómo el R strplit() Funciton trabajó:

# Test matrix 
tmp.mtrx <- matrix(c("1;2", "3;4", "5;6", "7;8"), ncol=1) 

# The split 
tmp.split <- strsplit(tmp.mtrx, ";") 

# Put it all together into a new matrix 
new_matrix <- matrix(tmp.split[[1]], ncol=2) 
for(i in 2:length(tmp.split)){ 
    new_matrix <- rbind(new_matrix, tmp.split[[i]]) 
} 

# Do the plot originally asked for 
plot(new_matrix[,1], new_matrix[,2]) 

@ Chl - que estaba buscando la función no listados, hace que la solución más agradable y sin el bucle aunque desde que he estado programando un montón I A menudo me resulta más agradable tener mi código más legible si no tiene un efecto demasiado grande en el rendimiento. Aquí está la solución de Chl en una matriz ligeramente más compleja:

# Test matrix 
tmp.mtrx <- matrix(c("1;2", 55, "3;4", 75, "5;6", 85, "7;8", 88), ncol=2) 

# The split 
tmp.split <- strsplit(tmp.mtrx, ";") 

# A vector with all the values, length = (ncol(tmp.mtrx) + 1)*nrow(tmp.mtrx) 
tmp.data_vector <- unlist(tmp.split) 

# Put it all together into a new matrix 
new_matrix <- matrix(tmp.data_vector, ncol=(ncol(tmp.mtrx)+1), byrow=TRUE) 

# Do the plot originally asked for 
plot(new_matrix[,1], new_matrix[,2])