gleich aus unterschiedlich organisierten Eingang Plotten Dateien

Question

ich folgende CSV-Eingabedatei bekam (Spalte durch Tab getrennt sind):

fruits  A  B  C 
apple  9.8 21 62.2 
bananas 12  11 58.3 
pineapple 3.5 13 41.2 
kiwi  6.4 36.5 38.1 
strawberry 2.5 47.2 35.5 

schaffte es aber nicht um die Grafik zu plotten ggplot verwenden. Statt dessen habe ich den gleichen Eingang, aber ein bisschen anders

fruits  Who How Much 
apple  A 9.8 
bananas  A 12 
pineapple A 3.5 
kiwi  A 6.4 
strawberry A 2.5 
apple  B 21 
bananas  B 11 
pineapple B 13 
kiwi  B 36.5 
strawberry B 47.2 
apple  C 62.2 
bananas  C 58.3 
pineapple C 41.2 
kiwi  C 38.1 
strawberry C 35.5 

Dann las ich die Daten

data <- read.table(file.choose(), header = TRUE, sep= '\t') 

und aufgetragen mit

ggplot(data=data, aes(x=Who, y=HowMuch, group=Fruits, colour=Fruits)) + 
     geom_line() + geom_point() + ggtitle("Fruits") + theme_bw() + 
     theme(legend.position=c(.9, .3)) + theme(legend.title=element_blank()) 

Wie kann ich die gleiche Handlung zu tun mit meine ursprüngliche Eingabedatei vom Anfang des Posts? Ohne die neue Eingabedatei zu erstellen ..

Answer 1

fruits<-c("apple","bananas","pineapple","kiwi","strawberry") 
A<-c("9.8","12","3.5","6.4","2.5") 
B<-c("21","11","13","36.5","47.2") 
C<-c("62.2","58.3","41.2","38.1","35.5") 

df<-data.frame(fruits, A, B, C) 
df 
     fruits A B C 
1  apple 9.8 21 62.2 
2 bananas 12 11 58.3 
3 pineapple 3.5 13 41.2 
4  kiwi 6.4 36.5 38.1 
5 strawberry 2.5 47.2 35.5 

library(reshape2) 
melt(df, id="fruits") 

     fruits variable value 
1  apple  A 9.8 
2  bananas  A 12 
3 pineapple  A 3.5 
4  kiwi  A 6.4 
5 strawberry  A 2.5 
6  apple  B 21 
7  bananas  B 11 
8 pineapple  B 13 
9  kiwi  B 36.5 
10 strawberry  B 47.2 
11  apple  C 62.2 
12 bananas  C 58.3 
13 pineapple  C 41.2 
14  kiwi  C 38.1 
15 strawberry  C 35.5 

Answer 2

obligatorisch tidyverse Lösung:

library(tidyr) 

read.table(text="fruits  A  B  C 
apple  9.8 21 62.2 
bananas 12  11 58.3 
pineapple 3.5 13 41.2 
kiwi  6.4 36.5 38.1 
strawberry 2.5 47.2 35.5", header=TRUE, stringsAsFactors=FALSE) -> df 

gather(df, who, how_much, -fruits)