I can't seem to wrap my mind around the way R requires the data for a stacked barplot although I have search the net and the available resources. 

I have the following data

```
    df<-c("III", "III", "I", "I", "I", "II", "I", "I", "I", "I", "I", 
"II", "I", "I", "I", "I", "I", "I", "I", "II", "I", "III", "II", 
"II", "III", "I", "II", "II", "I", "I", "IV", "I", "III", "I", 
"III", "I", "I", "II", "I", "II", "II", "I", "II", "I", "II", 
"II", "II", "II", "I", "I", "II", "I", "I", "I", "I", "I", "I", 
"II", "II", "III", "I", "III", "I", "I", "I", "I", "II", "I", 
"II", "III", "I", "I", "I", "I", "III", "II", "II", "I", "I", 
"II", "I", "II", "III", "II", "III", "II", "III", "I", "III", 
"III")

```

I would like to create a single bar stacked barplot with the percentages of I, II, III, IV. I can only get R to do the following

```
barplot(table(df)*100/90, col=c("white", "gray70", "gray40", "black"), ylim=c(0,100))

```

Is there any way to make this a single bar stacked barplot? Please baseR solutions only.
Thanks