Table

case %>%
  select(all_of(namelis)) %>% kbl(escape = FALSE, col.names =Colist,
                                  align = c("l", "r", "r", "r", "r", "r", "r", "r", "r", "r"),
                                  digits = 1) %>%
  add_header_above( c(" ", "Temerature" = 2, "Wind" = 2, "Gust" = 2, "", "", "")) %>%
  kable_styling(font_size = 14, fixed_thead = TRUE)

	Temerature		Wind		Gust
Date	Fahrenheit	Celsius	Meter per second	Mile per hour	Meter per second	Mile per hour	Season	ReportCase	Humidity (%)
2017-04-09	51	10	3	7	9	20	Winter	0	31
2022-06-30	69	21	2	4	5	11	Spring	0	59
2012-09-06	70	21	1	3	4	9	Summer	1	36
2008-04-28	54	12	2	4	4	9	Winter	0	24
2018-07-06	74	23	1	2	3	6	Summer	0	55
2010-05-17	59	15	2	4	4	9	Spring	0	60
2010-01-16	32	0	0	1	2	4	Winter	0	64
2021-07-08	79	26	1	2	3	8	Summer	0	42
2011-01-27	42	5	1	3	3	7	Winter	0	42
2010-10-21	52	11	1	2	2	5	Fall	0	56
2002-12-25	21	-6	1	2	2	5	Winter	0	68
2014-05-27	69	21	1	3	4	8	Spring	0	49
2004-02-23	39	4	2	3	4	8	Winter	0	73
2013-04-26	56	13	1	3	4	9	Winter	0	29
2004-09-25	57	14	1	3	3	7	Summer	1	68
2021-06-07	71	22	1	3	3	8	Spring	0	51
2020-06-24	73	23	1	3	4	8	Spring	0	49
2019-08-14	72	22	1	3	3	7	Summer	0	62
2012-06-08	74	23	2	5	5	11	Spring	0	50
2020-07-14	67	19	1	3	4	8	Summer	0	63
2016-07-09	78	25	1	2	3	6	Summer	0	40
2014-11-25	34	1	2	4	6	14	Fall	0	52
2018-06-03	64	18	1	2	3	7	Spring	0	48
2006-03-16	40	4	3	6	6	14	Winter	0	22
2020-01-12	30	-1	1	3	3	8	Winter	0	46
2003-02-03	27	-3	3	6	6	13	Winter	0	73
2013-08-16	73	23	1	3	3	7	Summer	4	49
2002-03-19	34	1	1	2	3	6	Winter	0	65
2015-08-19	58	15	2	4	4	9	Summer	1	62
2002-01-07	42	5	1	3	5	11	Winter	0	53