R 的初学者使用计数表创建比例表

Question

penguins.table = table

penguins.table( penguins$species, penguins$island )

this created my table of counts.

Next task for to create a table of proportions

penguins.prop= prop.table
penguins.prop = prop.table( penguins.table, 2)

or I've tried this

penguins.prop (penguins.table, 2)

I receive this in R:

Error in marginSums( x, margin) : 'x' is not an array

I'm learning basic r code, but is there something wrong with my code as to why it's not working in particular?

I need to be able to produce a stacked bar plot with the data, however, am stuck trying to achieve this.

Answer 1

From your first two pieces of code, I'm assuming that you wanted to make a prop.table using species and island . The code below will do that. You can add more variables you're interested in on the select( line next to species and island (or you could just do the whole dataframe with df , but it will be a lot).

df <- structure(list(species = c("Adelie", "Adelie", "Adelie", "Adelie", "Adelie", "Adelie", "Adelie", "Adelie", "Adelie", "Adelie"), 
island = c("Biscoe", "Biscoe", "Biscoe", "Biscoe", "Biscoe", "Biscoe", "Biscoe", "Biscoe", "Biscoe", "Biscoe"), 
sex = c("male", "female", "female", "female", "male", "female", "male", "female", "male", "male"), 
body_mass_g = c(3750, 3800, 3250, 3450, 3650, 3625, 4675, 3200, 3800, 4400)), row.names = c(NA, -10L ), class = c("tbl_df", "tbl", "data.frame")) 

library(tidyverse)
smalldf <- df %>% select(species, island)
prop.table(x = table(smalldf), margin = 2)
#>         island
#> species  Biscoe
#>   Adelie      1
#prop.table(x = table(df), margin = 2) 
# ^ a lot of output

Answer 2

Here is an alternative that just uses base R commands. This way only requires one string of code after you've loaded your data:

#### Load data ####    

penguins <- structure(list(species = c("Adelie", "Adelie", "Adelie", "Adelie", "Adelie", "Adelie", "Adelie", "Adelie", "Adelie", "Adelie"), 
                         island = c("Biscoe", "Biscoe", "Biscoe", "Biscoe", "Biscoe", "Biscoe", "Biscoe", "Biscoe", "Biscoe", "Biscoe"), 
                         sex = c("male", "female", "female", "female", "male", "female", "male", "female", "male", "male"), 
                         body_mass_g = c(3750, 3800, 3250, 3450, 3650, 3625, 4675, 3200, 3800, 4400)), row.names = c(NA, -10L ), class = c("tbl_df", "tbl", "data.frame")) 
    

#### Make proportion table ####
    
prop.table(table(penguins$species,
          penguins$island))

Which gives you the same output as the tidyverse method:

         Biscoe
  Adelie      1