Как мне получить таблицу сопряженности из этих данных?

Question

Я пытаюсь составить таблицу сопряженности из набора данных. Пока это выглядит так:

Но я бы хотел, чтобы это выглядело так, но в R:

Я попробовал кое-что, предложенное онлайн, с данными других людей, но мне трудно следить, когда все переменные и числа различны.

Мне нужно выполнить тест хи-квадрат, чтобы проверить независимость между употреблением марихуаны и участием в вечеринке. Заранее спасибо!

Answer 1

Мы можем использовать pivot_wider от tidyr

library(dplyr)
library(tidyr)
df1 %>%
      pivot_wider(names_from = `Dance...Party.Participation`, values_from = Count)