xuefliang

 library(fmesher) library(sf) library(ggplot2) create_adaptive_mesh <- function(sf_object,                                  inner_edge_ratio = 30,    # 增大内部边长比例（更密集）                                  outer_edge_ratio = 5,     # 减小外部边长比例（更稀疏）                                  inner_offset_ratio = 8,   # 减小内部偏移比例（内部区域更大）                                  outer_offset_ratio = 20,  # 增大外部偏移比例（外部区域相对更小）                                  cutoff_ratio = 80,        # 增大cutoff比例（避免过小三角形）         ...

  #   sudo apt install fonts-noto-cjk theme_set ( theme_bw ( base_family = "Noto Sans CJK SC" ))

  使用管理员账户编辑 sudoers 文件 ： <BASH> sudo visudo 在文件中添加以下行 ： <BASH> rstudio ALL= ( ALL:ALL ) ALL 保存并退出 （通常是 Ctrl+X，然后 Y，然后 Enter