head(Terpenedata,50)[c('Compound','Compound2','Concentration')]
datapasta::df_paste(head(Terpenedata,50)[c('Compound','Compound2','Concentration')])
data.frame(
stringsAsFactors = FALSE,
Compound = c("Geraniol","Geraniol",
"Geraniol","Nerol","Nerol","Nerol","Citronellol",
"Citronellol","Citronellol","Citral","Citral","Citral",
"A.terpineol","A.terpineol","A.terpineol",
"Citronellyl.acetate","Citronellyl.acetate","Citronellyl.acetate",
"Humulene","Humulene","Humulene","Caryophyllene",
"Caryophyllene","Caryophyllene","Linalool","Linalool","Linalool",
"Limonene","Limonene","Limonene","B.pinene",
"B.pinene","B.pinene","Geraniol","Geraniol","Geraniol",
"Nerol","Nerol","Nerol","Citronellol","Citronellol",
"Citronellol","Citral","Citral","Citral","A.terpineol",
"A.terpineol","A.terpineol","Citronellyl.acetate",
"Citronellyl.acetate"),
Compound2 = c("B.Pinene","B.Pinene",
"B.Pinene","B.Pinene","B.Pinene","B.Pinene","B.Pinene",
"B.Pinene","B.Pinene","B.Pinene","B.Pinene","B.Pinene",
"B.Pinene","B.Pinene","B.Pinene","B.Pinene","B.Pinene",
"B.Pinene","B.Pinene","B.Pinene","B.Pinene",
"B.Pinene","B.Pinene","B.Pinene","B.Pinene","B.Pinene",
"B.Pinene","B.Pinene","B.Pinene","B.Pinene","B.Pinene",
"B.Pinene","B.Pinene","Myrcene","Myrcene","Myrcene",
"Myrcene","Myrcene","Myrcene","Myrcene","Myrcene",
"Myrcene","Myrcene","Myrcene","Myrcene","Myrcene",
"Myrcene","Myrcene","Myrcene","Myrcene"),
Concentration = c(0.007520654,0.007064241,
0.007192582,0.00757695,0.007753056,0.007858232,0.005841789,
0.008161947,0.006714852,0.008162053,0.008662327,
0.008052792,0.008079217,0.008841989,0.008212932,
0.00532694,0.004587573,0.004048106,0.005714935,0.005479401,
0.005568608,0.006526013,0.005617379,0.006967101,
0.009495839,0.013968538,0.009086078,0.03704854,0.042965721,
0.026089159,1.659645278,1.742959751,1.762389877,
0.006956027,0.008250725,0.006916001,0.006447971,
0.005599035,0.006193504,0.004447824,0.003573527,0.003774742,
0.009559275,0.011485213,0.010594831,0.001777776,
0.001734115,0.001741081,0.00364551,0.003762947)
)