Movatterモバイル変換


[0]ホーム

URL:


Skip to content

Navigation Menu

Search code, repositories, users, issues, pull requests...

Provide feedback

We read every piece of feedback, and take your input very seriously.

Saved searches

Use saved searches to filter your results more quickly

Sign up
This repository was archived by the owner on Sep 6, 2021. It is now read-only.
/HSCadminPublic archive

License

NotificationsYou must be signed in to change notification settings

Sciurus365/HSCadmin

Repository files navigation

在北大未名BBS (https://bbs.pku.edu.cn/) HSC(医学部)版近期进行的三次版务申请投票中,三位不同背景的申请者因不同的原因被投票否决。其中,第一名申请者ducker是19级医学部在读本科生,主要反对理由为该同学较为年轻,不能胜任。第二名申请者ccmesongshu是校本部19届毕业生,有一定的版务管理经验,主要反对理由为该同学为非医学部且为毕业生,不能胜任。第三名申请者accept是医学部16级在读长学制临床研究生,主要反对理由为该同学临床事务繁忙,不能胜任。

根据未名BBS规定,版务投票为记名投票,结果公开。根据此公开数据做如下整理:

library(tidyverse)
## -- Attaching packages --------------------------------------- tidyverse 1.3.1 --## v ggplot2 3.3.3     v purrr   0.3.4## v tibble  3.1.1     v dplyr   1.0.6## v tidyr   1.1.3     v stringr 1.4.0## v readr   1.4.0     v forcats 0.5.1## -- Conflicts ------------------------------------------ tidyverse_conflicts() --## x dplyr::filter() masks stats::filter()## x dplyr::lag()    masks stats::lag()
accept_result<- read_csv("accept.csv")
## ## -- Column specification --------------------------------------------------------## cols(##   ID = col_character(),##   IP = col_character(),##   time = col_character(),##   day = col_character(),##   choice = col_character()## )
ccmesongshu_result<- read_csv("ccmesongshu.csv")
## ## -- Column specification --------------------------------------------------------## cols(##   ID = col_character(),##   IP = col_character(),##   time = col_character(),##   day = col_character(),##   choice = col_character()## )
ducker_result<- read_csv("ducker.csv")
## ## -- Column specification --------------------------------------------------------## cols(##   ID = col_character(),##   IP = col_character(),##   time = col_character(),##   day = col_character(),##   choice = col_character()## )
all_result<- full_join(accept_result,ccmesongshu_result,by="ID",suffix= c(".accept",".ccmesongshu")) %>%    full_join(ducker_result,by="ID") %>%    mutate(choice.ducker=choice) %>%    select(ID,choice.accept,choice.ccmesongshu,choice.ducker)knitr::kable(all_result)
IDchoice.acceptchoice.ccmesongshuchoice.ducker
acceptAANA
AdmiAANA
afurolANANA
amoykangAANA
arzthxyBBNA
augatunivABNA
axtoxicANAA
bailangdxABNA
bananaskinAANA
biasBBNA
bigdoubleBBNA
biuJONAANA
bjdoufeiBBNA
blueflashANANA
bonfireBBNA
bradtidoAANA
bridgeflyAANA
BrielleBBNA
BriseisBBNA
bwcxBBNA
catalyzeAANA
ccmesongshuANANA
cgbdyczBBNA
cxaicxBBNA
DelusionalAANA
deriveBBNA
desmondliangAANA
DestiniiBBNA
docidaciBBNA
doctorfreeAANA
duckerAANA
dvorazAANA
EdenBBNA
edenhazardAANA
eeeKdBBNA
EinsiebenANAA
euioAANA
EulerHuajiAANA
EzawaTamikoAANA
faruxueBBNA
FireworksAANA
fundamentalAANA
gaodiBBNA
golAAB
HangoversBBNA
hanhanmeiBBNA
HANZPANAAA
HelloOTSANAA
hhhhhhhhhhhBBNA
himitsuAANA
houbuhouaAANA
hrceggAANA
hscxcbAANA
idiocraticAANA
IowaAANA
IridazeAANA
jennyGANANA
kanezAANA
KennethPKUAANA
kitdzloveBBNA
lemonlemonBBNA
leppapebcAANA
LHAANA
LithiumAANA
lizxAANA
lnpkuAANA
lohasBBNA
lxyAANA
lyhsunnyBBNA
maonsterAANA
mojaveAANA
MoonyAANA
motaguokeAANA
MrWolffyAANA
muktubBBNA
NachtmusikAAA
nancycatBBNA
NoahBBNA
pangshuaigeAANA
pinelliaBBNA
pkuerljhAANA
PurposeANANA
puzheAANA
QiiiiiiAANA
ququlongshaAANA
RayPrimeAANA
ReinesAANA
RichardGreenAANA
rlchengAANA
RorschachBBNA
ryanliAANA
sanshanAANA
shuchongANANA
sjwclwnayzAANA
skygsBBB
soniawBBNA
spiridemptAANA
SQAANA
SrinceWAAA
ssssuuuuBBNA
stonezAANA
survivorAANA
sweetmonkeyBBNA
TalutsaiAAA
tangmoAAA
TavstarAAA
ToolBBNA
TranquilsunAANA
tsiauAAA
VelproBBNA
vitigerAANA
vivissBBNA
vvvvicBBNA
watemAANA
webberjianBBNA
wenxijcANANA
wkyAANA
woctordhoAANA
wuyuchuanAANA
xiaoheheAANA
XuLanTuAANA
xuzilingBBNA
yuanhuangAANA
YvonneLLLAANA
yydcjAANA
zaiqiangAANA
zazaAAA
ZBFSZXBAB
ZelmaYoungBBB
zinccatAANA
ZQMAAB
moonlNAANA
ARABBITNAANA
starlightNAANA
docuNAANA
dengrunNAANA
thedoorNABNA
enoziNABNA
PipNABNA
lululuxNABNA
ckrenrenNAANA
monicanyNABNA
zhanyiheNAANA
psychosocialNABNA
anotsoNANAA
astrolabeNANAB
ChiilinNANAB
conezyNANAA
cranethNANAB
dodobusNANAA
echoesNANAB
GuNaiNANAB
hnllNANAA
HuayuSiNANAB
iduduNANAA
KeibNANAA
kzhengPKUNANAA
momohongNANAB
nashishenmeNANAB
parsioNANAB
pencilpopNANAB
pkuhbNANAA
qinweiNANAA
quiNANAB
ShadowNANAB
SheeranYoungNANAB
ShirleenNANAB
stevebladeNANAA
wenjiajiaNANAA
wuxianNANAA
WZzzxxxNANAB
xinglianNANAA
yuewuzhenNANAB
yxlixiangNANAA
zhangerchengNANAB
zznizhidaoNANAB

其中,各ID投下反对票的次数统计如下:

B_result<-all_result %>%    rowwise() %>%    mutate(B_num= sum(c(choice.accept,choice.ccmesongshu,choice.ducker)=="B",na.rm=T)) %>%    ungroup() %>%    arrange(-B_num)knitr::kable(B_result)
IDchoice.acceptchoice.ccmesongshuchoice.duckerB_num
skygsBBB3
ZelmaYoungBBB3
arzthxyBBNA2
biasBBNA2
bigdoubleBBNA2
bjdoufeiBBNA2
bonfireBBNA2
BrielleBBNA2
BriseisBBNA2
bwcxBBNA2
cgbdyczBBNA2
cxaicxBBNA2
deriveBBNA2
DestiniiBBNA2
docidaciBBNA2
EdenBBNA2
eeeKdBBNA2
faruxueBBNA2
gaodiBBNA2
HangoversBBNA2
hanhanmeiBBNA2
hhhhhhhhhhhBBNA2
kitdzloveBBNA2
lemonlemonBBNA2
lohasBBNA2
lyhsunnyBBNA2
muktubBBNA2
nancycatBBNA2
NoahBBNA2
pinelliaBBNA2
RorschachBBNA2
soniawBBNA2
ssssuuuuBBNA2
sweetmonkeyBBNA2
ToolBBNA2
VelproBBNA2
vivissBBNA2
vvvvicBBNA2
webberjianBBNA2
xuzilingBBNA2
ZBFSZXBAB2
augatunivABNA1
bailangdxABNA1
golAAB1
ZQMAAB1
thedoorNABNA1
enoziNABNA1
PipNABNA1
lululuxNABNA1
monicanyNABNA1
psychosocialNABNA1
astrolabeNANAB1
ChiilinNANAB1
cranethNANAB1
echoesNANAB1
GuNaiNANAB1
HuayuSiNANAB1
momohongNANAB1
nashishenmeNANAB1
parsioNANAB1
pencilpopNANAB1
quiNANAB1
ShadowNANAB1
SheeranYoungNANAB1
ShirleenNANAB1
WZzzxxxNANAB1
yuewuzhenNANAB1
zhangerchengNANAB1
zznizhidaoNANAB1
acceptAANA0
AdmiAANA0
afurolANANA0
amoykangAANA0
axtoxicANAA0
bananaskinAANA0
biuJONAANA0
blueflashANANA0
bradtidoAANA0
bridgeflyAANA0
catalyzeAANA0
ccmesongshuANANA0
DelusionalAANA0
desmondliangAANA0
doctorfreeAANA0
duckerAANA0
dvorazAANA0
edenhazardAANA0
EinsiebenANAA0
euioAANA0
EulerHuajiAANA0
EzawaTamikoAANA0
FireworksAANA0
fundamentalAANA0
HANZPANAAA0
HelloOTSANAA0
himitsuAANA0
houbuhouaAANA0
hrceggAANA0
hscxcbAANA0
idiocraticAANA0
IowaAANA0
IridazeAANA0
jennyGANANA0
kanezAANA0
KennethPKUAANA0
leppapebcAANA0
LHAANA0
LithiumAANA0
lizxAANA0
lnpkuAANA0
lxyAANA0
maonsterAANA0
mojaveAANA0
MoonyAANA0
motaguokeAANA0
MrWolffyAANA0
NachtmusikAAA0
pangshuaigeAANA0
pkuerljhAANA0
PurposeANANA0
puzheAANA0
QiiiiiiAANA0
ququlongshaAANA0
RayPrimeAANA0
ReinesAANA0
RichardGreenAANA0
rlchengAANA0
ryanliAANA0
sanshanAANA0
shuchongANANA0
sjwclwnayzAANA0
spiridemptAANA0
SQAANA0
SrinceWAAA0
stonezAANA0
survivorAANA0
TalutsaiAAA0
tangmoAAA0
TavstarAAA0
TranquilsunAANA0
tsiauAAA0
vitigerAANA0
watemAANA0
wenxijcANANA0
wkyAANA0
woctordhoAANA0
wuyuchuanAANA0
xiaoheheAANA0
XuLanTuAANA0
yuanhuangAANA0
YvonneLLLAANA0
yydcjAANA0
zaiqiangAANA0
zazaAAA0
zinccatAANA0
moonlNAANA0
ARABBITNAANA0
starlightNAANA0
docuNAANA0
dengrunNAANA0
ckrenrenNAANA0
zhanyiheNAANA0
anotsoNANAA0
conezyNANAA0
dodobusNANAA0
hnllNANAA0
iduduNANAA0
KeibNANAA0
kzhengPKUNANAA0
pkuhbNANAA0
qinweiNANAA0
stevebladeNANAA0
wenjiajiaNANAA0
wuxianNANAA0
xinglianNANAA0
yxlixiangNANAA0

About

No description or website provided.

Topics

Resources

License

Stars

Watchers

Forks

Releases

No releases published

Packages

No packages published

[8]ページ先頭

©2009-2025 Movatter.jp