creation de ligne

Version imprimable

creation de ligne

Bonjour,
j'ai un fichier excel contenant en ligne des plantes et en colonnes des variables pour ces plantes .
Par exemple, pour la plante 01 on a le nb de fleurs, de graine, d'inflorescence …
il faudrait que je créé une ligne par fleurs pour chaque plante avec l'indication qu'elle deviens ou pas un fruit (1 ou 0)
Pourriez vous m'aider ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
head(data)
# A tibble: 6 x 11
  famille traitement  bloc origine code_plante L_mm_plante tot_inflo
  <chr>   <chr>      <dbl> <chr>   <chr>             <dbl>     <dbl>
1 02      WP             1 BQ      BQ_02_05           33.5         2
2 03      C              1 BQ      BQ_03_02           60.2         1
3 03      WP             5 BQ      BQ_03_04           30.2        11
4 04      O              2 BQ      BQ_04_01           80.9        13
5 04      W              2 BQ      BQ_04_02           37.0        15
6 04      WP             1 BQ      BQ_04_04           55.6        16
# ... with 4 more variables: fleurs_plante <dbl>, fruits_plante <dbl>,
#   fruits_pour_seed_set_plante <dbl>, graines_plante <dbl>

Pour l'instant j'ai réussi a faire ces lignes mais la dernière instruction ne fonctionne pas

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
fleursmoinsfruits = data$fleurs_estimes-data$fruits_formes
datafleurs <- data[rep(seq_len(nrow(data)),fleursmoinsfruits),]
datafruits <- data[rep(seq_len(nrow(data)),data$fruits_formes),]
dim(datafleurs)
dim(datafruits)
 
dat = rbind(datafleurs,datafruits)
dim(dat)
 
 
nfleurs = rep(0,nrow(datafleurs))
nfruits = rep(1,nrow(datafruits))
 
En_fruits = rbind(nfleurs,nfruits)

J'ai trouvé :)

Code:

1
2
3
4
 
En_fruits <-rep(0:1,c(nrow(datafleurs),nrow(datafruits)))
 
A <- data.frame(dat,En_fruits)