我正在尝试使用R中的reshape()从长格式转换为宽格式。
我已经尝试了几次迭代的reshape()代码，但都没有成功，我也不知道哪里出错了。我尝试了以下方法：

reshape(idvar = c("Site_ID", "date.only", "am.pm", "reserve", "on.VS.off", "Wind_strength", 
                                                 "Cloud_cover", "Feeding_resources", "Moisture_conditions"), 
                    v.names = "English_Name", direction = "wide", data = data)

and

reshape(idvar = c("Site_ID", "date.only", "am.pm", "reserve", "on.VS.off", "Wind_strength", 
                                                 "Cloud_cover", "Feeding_resources", "Moisture_conditions"), 
                    timevar = "English_Name", direction = "wide", data = data)

字符串
原始数据格式、可复制代码和示例格式

origional <- structure(list(Site_ID = c(1L, 1L, 1L, 2L, 2L, 2L, 2L, 1L, 1L, 
2L, 2L, 2L), date.only = c("11/12/2023", "11/12/2023", "11/12/2023", 
"11/12/2023", "11/12/2023", "11/12/2023", "11/12/2023", "11/12/2023", 
"11/12/2023", "11/12/2023", "11/12/2023", "11/12/2023"), am.pm = c("am", 
"am", "am", "am", "am", "am", "am", "pm", "pm", "pm", "pm", "pm"
), reserve = c("a", "a", "a", "b", "b", "b", "b", "a", "a", "b", 
"b", "b"), on.VS.off = c("on", "on", "on", "off", "off", "off", 
"off", "on", "on", "off", "off", "off"), Wind_strength = c("branches", 
"branches", "branches", "twigs", "twigs", "twigs", "twigs", "leaves", 
"leaves", "branches", "branches", "branches"), Cloud_cover = c(2L, 
2L, 2L, 1L, 1L, 1L, 1L, 0L, 0L, 4L, 4L, 4L), Feeding_resources = c("low", 
"low", "low", "medium", "medium", "medium", "medium", "low", 
"low", "medium", "medium", "medium"), Moisture_conditions = c("no rain", 
"no rain", "no rain", "last 24hrs", "last 24hrs", "last 24hrs", 
"last 24hrs", "no rain", "no rain", "last 24hrs", "last 24hrs", 
"last 24hrs"), English_name = c("Australian Magpie", "Silver Gull", 
"European Starling", "Australian Magpie", "Silver Gull", "Masked Lapwing", 
"Galah", "Australian Magpie", "Silver Gull", "Masked Lapwing", 
"Silver Gull", "Magpie Lark"), count = c(1L, 3L, 6L, 2L, 4L, 
1L, 5L, 1L, 1L, 2L, 4L, 2L)), class = "data.frame", row.names = c(NA, 
-12L))

origional
   Site_ID  date.only am.pm reserve on.VS.off Wind_strength Cloud_cover Feeding_resources Moisture_conditions      English_name count
1        1 11/12/2023    am       a        on      branches           2               low             no rain Australian Magpie     1
2        1 11/12/2023    am       a        on      branches           2               low             no rain       Silver Gull     3
3        1 11/12/2023    am       a        on      branches           2               low             no rain European Starling     6
4        2 11/12/2023    am       b       off         twigs           1            medium          last 24hrs Australian Magpie     2
5        2 11/12/2023    am       b       off         twigs           1            medium          last 24hrs       Silver Gull     4
6        2 11/12/2023    am       b       off         twigs           1            medium          last 24hrs    Masked Lapwing     1
7        2 11/12/2023    am       b       off         twigs           1            medium          last 24hrs             Galah     5
8        1 11/12/2023    pm       a        on        leaves           0               low             no rain Australian Magpie     1
9        1 11/12/2023    pm       a        on        leaves           0               low             no rain       Silver Gull     1
10       2 11/12/2023    pm       b       off      branches           4            medium          last 24hrs    Masked Lapwing     2
11       2 11/12/2023    pm       b       off      branches           4            medium          last 24hrs       Silver Gull     4
12       2 11/12/2023    pm       b       off      branches           4            medium          last 24hrs       Magpie Lark     2

型
所需的数据格式、可复制的代码和示例格式

desired <- structure(list(Site_ID = c(1L, 2L, 1L, 2L), date.only = c("11/12/2023", 
"11/12/2023", "11/12/2023", "11/12/2023"), am.pm = c("am", "am", 
"pm", "pm"), reserve = c("a", "b", "a", "b"), on.VS.off = c("on", 
"off", "on", "off"), Wind_strength = c("branches", "twigs", "leaves", 
"branches"), Cloud_cover = c(2L, 1L, 0L, 4L), Feeding_resources = c("low", 
"medium", "low", "medium"), Moisture_conditions = c("no rain", 
"last 24hrs", "no rain", "last 24hrs"), Australian.Magpie = c(1L, 
2L, 1L, NA), Silver.Gull = c(3L, 4L, 1L, 4L), European.Starling = c(6L, 
NA, NA, NA), Maked.Lapwing = c(NA, 1L, NA, 2L), Galah = c(NA, 
5L, NA, NA), Magpie.Lark = c(NA, NA, NA, 2L)), class = "data.frame", row.names = c(NA, 
-4L))

desired
  Site_ID  date.only am.pm reserve on.VS.off Wind_strength Cloud_cover Feeding_resources Moisture_conditions Australian.Magpie
1       1 11/12/2023    am       a        on      branches           2               low             no rain                 1
2       2 11/12/2023    am       b       off         twigs           1            medium          last 24hrs                 2
3       1 11/12/2023    pm       a        on        leaves           0               low             no rain                 1
4       2 11/12/2023    pm       b       off      branches           4            medium          last 24hrs                NA
  Silver.Gull European.Starling Maked.Lapwing Galah Magpie.Lark
1           3                 6            NA    NA          NA
2           4                NA             1     5          NA
3           1                NA            NA    NA          NA
4           4                NA             2    NA           2

型