Création de table à partir de variables connues & création d'un nuage de points depuis la table créée
Voilà j'aimerais appliquer ce code à mes données pour générer un nuage de points sans superposition de points :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| data(crimtab)
crimtab.dft <- as.data.frame(crimtab)
expand.dft <- function(x, na.strings = "NA", as.is = FALSE,
dec = ".") {
DF <- sapply(1:nrow(x), function(i) x[rep(i, each = x$Freq[i]),
], simplify = FALSE)
DF <- subset(do.call("rbind", DF), select = -Freq)
for (i in 1:ncol(DF)) {
DF[[i]] <- type.convert(as.character(DF[[i]]),
na.strings = na.strings, as.is = as.is, dec = dec)
}
DF
}
crimtab.raw <- expand.dft(crimtab.dft)
x <- crimtab.raw[, 1]
y <- crimtab.raw[, 2]
plot(x, y, las = 1, main = "3000 criminels", ylab = "Taille [cm]",
xlab = "Majeur gauche [cm]") |
Mais pour cela, je dois créer une table mais mes données étant trop grosses et le nombre de valeurs (modalités) pour mes variables le sont aussi. Et donc je ne peux pas non plus créer ma table en se basant sur ce code :
Code:
1 2 3 4 5 6 7 8
| Name <- c("l1","l2","l3","l4","l5")
col1 <- c(3,5,2,1,4)
col2 <- c("a","b","c","d","e")
col3 <- c(10,20,30,40, NA)
# 1ere méthode : Création directe
t <- data.frame(Name,col1,col2,col3)
# 2eme méthode : Concaténation par colonne
t <- cbind.data |
Puisqu'il faut renseigner chacune des valeurs dans c(..,..,..), ce que je ne peux faire pour mes variables "Frais réels" et "Quantité d'actes" (nombre trop important de valeurs).
Y aurait-il une manière d'attribuer directement l'ensemble des modalités sans "taper" au clavier chacune de ces valeurs comme fait ci-dessus dans c( ... ) ?