xuefliang

  library ( naniar ) remotes :: install_github ( "njtierney/naniar" ) airquality %>% group_by ( Month ) %>% naniar :: miss_var_summary ( ) ggplot ( data = airquality , aes ( x = Ozone , y = Solar.R ) ) + geom_miss_point ( )

library ( ggthemr ) ## devtools::install_github('cttobin/ggthemr') ggthemr ( "light" ) mtcars %>% mutate ( cyl = factor ( cyl ) ) %>% ggplot ( aes ( x = mpg , fill = cyl , colour = cyl ) ) + geom_density ( alpha = 0.75 ) + labs ( fill = "Cylinders" , colour = "Cylinders" , x = "MPG" , y = "Density" ) + legend_top ( ) ggthemr_reset ( )

  library ( huxtable ) table1 <- cbind.data.frame ( mod $ mchoice , mod2 $ mchoice ) table1 %>%   as_hux ( add_colnames = FALSE ) %>%   set_number_format ( 2 )     %>%   map_text_color ( by_cols ( "darkred" , "blue" , "darkgreen" )) %>%   add_colnames ( "Criteria" ) %>%   set_header_rows ( 1 , TRUE ) %>%   add_rownames () %>%   set_bottom_border ( row = c ( 1 , 7 ), col = everywhere ) %>%   set_top_border ( row = 1 , col = everywhere ) %>%   set_bold ( 1 , everywhere ) %>%   style_headers ( bold = TRUE , text_color = "red" ) %>%   set_caption ( '(#tab:mchoicenyspatial) Model choice criteria for various models fitted to the nyspatial data set.' )

  在从Matrix < 1.6-2切换到Matrix >= 1.6-2之后，您必须从源代码重新安装MatrixModels。 install.packages ( "MatrixModels" , type = "source" )

  /usr/lib/rstudio-server/bin/quarto/bin/quarto add kapsner/authors-block

 library(bmstdr) m <- getData(name = "GADM", country = "Spain", level = 0) %>%   st_as_sf() %>%   st_cast("POLYGON") %>%   mutate(area = st_area(.)) %>%   arrange(desc(area)) %>%   slice(1) %>%  st_transform(25830) d <- read.csv("./dataPM25.csv") %>%    dplyr::select(year='ReportingYear',id='StationLocalId',                 long='SamplingPoint_Longitude',lat='SamplingPoint_Latitude',value='AQValue') %>%    st_as_sf(coords=c('long','lat')) %>%    st_set_crs(4326) %>%    st_transform(25830) %>%    filter(row_number() %in% st_intersects(m,.)[[1]]) %>%    group_by(id) %>%    filter(n()==3) %>%    ungroup() %>%    mutate(yr = year - min(year) + 1,          s.index = as.integer(as.factor(id))) %>%   arrange(s.index, yr) %>%    mutate(L...

   一、准备  sudo vim /etc/locale.gen 移除这行的注释 "zh_CN.UTF8 UTF8" 下载语言: sudo locale-gen 二、安装 sudo apt install ibus ibus-libpinyin  ibus-gtk* ibus-qt* 三、配置 im-config select "OK" select "Yes" to question "Do you explicitly select the user configuration?" select "ibus" select "OK" select "OK" 四、启用 ibus service dbus-launch ibus-daemon -drx dbus-launch ibus-setup 五、重启 sudo pkill ibus-daemon dbus-launch ibus-daemon -drx 六、自启动  To automate the service Create file /etc/profile.d/ibus.sh, with the following content: export LC_CTYPE="zh_CN.UTF-8" export XIM=ibus export XIM_PROGRAM=/usr/bin/ibus export QT_IM_MODULE=ibus export GTK_IM_MODULE=ibus export XMODIFIERS=@im=ibus export DefaultIMModule=ibus ibus-daemon -drx 七、 移除fcitx, edit /etc/profile.d/fcitx.sh to remove fcitx-autostart and fcitx's variables. sudo rm /etc/profile.d/fcitx*