Если на Ubuntu / Linux перейдите к вашей папке static / css / js ... или где бы вы ни захотели сохранить файл:
wget https://code.jquery.com/jquery-3.3.1.js
Теперь файл находится в вашем текущем каталоге.
База R:
colSums(rowsum(df[, -1], df[, 1]) > 0)
#x y z k
#4 4 2 3
С dplyr
и tidyr
:
library(dplyr)
library(tidyr)
df %>%
gather(k, v, -1) %>%
filter(v == 1) %>%
group_by(k) %>%
summarise(cnt = n_distinct(city))
Результат:
# A tibble: 4 x 2
k cnt
<chr> <int>
1 k 3
2 x 4
3 y 4
4 z 2
Используя data.table
:
library(data.table)
setDT(df)
df[, lapply(.SD, max), city][, colSums(.SD), .SDcols = -1]
x y z k
4 4 2 3
rowsum()
! – snoram 13 July 2018 в 10:39stack
вокруг него, и вы получите ожидаемый формат вывода – Moody_Mudskipper 13 July 2018 в 12:20