how to turn column into column names and fill it with values

Hello,

Something like this?

mc <- read.table(text = "
 ????? FID? IID?? PLATE
1 fam0110 G110 4RWG569
2 fam0113 G113? cherry
3 fam0114 G114? cherry
4 fam0117 G117 4RWG569
5 fam0118 G118 5XAV049
6 fam0119 G119? cherry
", header = TRUE)



library(dplyr)
library(tidyr)

mc %>%
 ? group_by(PLATE) %>%
 ? mutate(counts = n()) %>%
 ? pivot_wider(
 ??? id_cols = c("FID", "IID"),
 ??? names_from = "PLATE",
 ??? values_from = counts,
 ??? values_fill = list(counts = 0)
 ? )


Hope this helps,

Rui Barradas

?s 17:18 de 29/09/20, Ana Marija escreveu:

Hello,

I have a data frame like this:

head(mc)

?????? FID? IID?? PLATE
1 fam0110 G110 4RWG569
2 fam0113 G113? cherry
3 fam0114 G114? cherry
4 fam0117 G117 4RWG569
5 fam0118 G118 5XAV049
6 fam0119 G119? cherry
...

dim(mc)

[1] 1625??? 4

length(unique(mc$PLATE))

[1] 34

I am trying to make a new data frame which would look like this:
?????? FID? IID?? PLATE?? 4RWG569? cherry 5XAV049 ...
1 fam0110 G110 4RWG569? 2? 1? 1
2 fam0113 G113? cherry?? 1? 2? 1
3 fam0114 G114? cherry?? 1? 2? 1
4 fam0117 G117 4RWG569? 2? 1? 1
5 fam0118 G118 5XAV049?? 2? 1? 1
6 fam0119 G119? cherry?? 1? 2? 1
...

so the new data frame would have an additional 34 columns (for every
unique mc$PLATE) and if in the row of PLATE column the value is ==to
that column name I would have 2 otherwise 1

I tried to do this with:

library(reshape2)

? m2=dcast(mc, IID ~ PLATE)

Using PLATE as value column: use value.var to override.

Please advise,
Ana