Voilà j'aimerais appliquer ce code à mes données pour générer un nuage de points sans superposition de points :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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( ... ) ?