Sunflower Drought Tolerance Analysis

rm(list=ls())
df<-matrix(c(   95,     7,  27.5,   15.5,   34.5,   7.25,   21, 13.5,   35, 5.5,    2.9,    1.35,
    115,    4,  29.5,   16, 25, 7.75,   17.5,   15.5,   30, 4.75,   2.85,   1.85,
    140,    9.5,    25, 12, 30, 9.5,    34, 26, 150,    6.25,   4.5,    3,
    120,    3,  9.5,    17, 19.5,   6,      17.5,   20, 75, 5.25,   3.75,   2.25,
    42.5,   3.1,    6.5,    23.5,   17, 7.5,    27.5,   9.5,    25, 7.15,   6.8,    3.25,
    25, 3.5,    2,  19, 17, 8.5,    20, 10, 25, 5.75,   4.5,    2.05,
    165,    3.75,   15, 17.5,   20, 8.5,    25, 16, 50, 5.25,   3.5,    2.7,
    200,    11, 11, 27.5,   25, 10,     37.5,   23.5,   150,    6.5,    4.5,    2.75,
    200,    6,  5,  25, 27.5,   10.5,   25, 17.5,   150,    7,  5,  2.35,
    105,    2.5,    8,  21, 14, 10,     17, 14.5,   75, 6,  4,  2.35,
    65, 1.6,    8,  17.5,   14.5,   9.75,   17, 11.5,   50, 5,  3.25,   2.2)
,ncol=12)



dim(df)

[1] 11 12

rownames(df)<-c("praecox","debilis","neglectus","petiolaris","anomalus","deserticol","paradoxus","annuus","argophyllus","bolanderi","exilis")


AnnPrec<-matrix(c(1796.711,978.25,148,384.8,393.25,154,229,459.62,695.25,444.67,829),ncol=1)

df<-cbind(AnnPrec,df)

colnames(df)<-c("AnnPrec","Annuals","Petioles","Peduncles","Involucres","Phyllaries","Paleae","Laminae",    "Ray florets","Disc florets","Corollas","Cypselae","Pappi")


# library(xtable)
# xtable(df)
# xtable(AnnPrec)

library(kableExtra)
kable(df)

	AnnPrec	Annuals	Petioles	Peduncles	Involucres	Phyllaries	Paleae	Laminae	Ray florets	Disc florets	Corollas	Cypselae	Pappi
praecox	1796.711	95.00	1.35	2.85	6.25	75.00	9.50	20.00	8.50	25.00	25.00	8.00	1.60
debilis	978.250	7.00	115.00	1.85	4.50	5.25	25.00	10.00	25.00	10.00	27.50	21.00	8.00
neglectus	148.000	27.50	4.00	140.00	3.00	3.75	7.15	25.00	16.00	37.50	10.50	14.00	17.50
petiolaris	384.800	15.50	29.50	9.50	120.00	2.25	6.80	5.75	50.00	23.50	25.00	10.00	14.50
anomalus	393.250	34.50	16.00	25.00	3.00	42.50	3.25	4.50	5.25	150.00	17.50	17.00	9.75
deserticol	154.000	7.25	25.00	12.00	9.50	3.10	25.00	2.05	3.50	6.50	150.00	14.50	17.00
paradoxus	229.000	21.00	7.75	30.00	17.00	6.50	3.50	165.00	2.70	4.50	7.00	75.00	11.50
annuus	459.620	13.50	17.50	9.50	19.50	23.50	2.00	3.75	200.00	2.75	5.00	6.00	50.00
argophyllus	695.250	35.00	15.50	34.00	6.00	17.00	19.00	15.00	11.00	200.00	2.35	4.00	5.00
bolanderi	444.670	5.50	30.00	26.00	17.50	7.50	17.00	17.50	11.00	6.00	105.00	2.35	3.25
exilis	829.000	2.90	4.75	150.00	20.00	27.50	8.50	20.00	27.50	5.00	2.50	65.00	2.20