小编Phi*_*hil的帖子

如何添加将回归方程连接到 x 轴上的特定点和 y 轴上的相应值的线？

这是一个可重现的示例：

library(ggplot2)
library(ggpmisc)

x<-c(1,2,3,5,10,12,15,20,22,25,30,33,37)

y<-c(1000,800,100,10,1,0.3,0.25,0.2,0.1,0.1,0.03,0.05,0.03)

myformula<-y ~ poly(x,3)

df <- data.frame(x, y)

ggplot(df, aes(x,y)) + 
  stat_smooth(method = lm, formula = myformula) + 
  geom_point() + 
  stat_smooth(method = lm, formula = myformula) +
  stat_poly_eq(formula = myformula, eq.with.lhs = "italic(psi)~`=`~",
               eq.x.rhs = "~italic(theta)", 
               aes(label = paste(..eq.label.., ..rr.label.., 
                                 sep = "~~~~")), label.x=0.15, parse = TRUE)+ 
  xlim(0, 40)+  
  ylim(0, 2000)+ 
  scale_y_log10(breaks = c(0, 0.1,10,1000), labels= c(0,0.1, 10,1000))

这就是我所拥有的：

这就是我想要的：

使用我的用户名和密码登录 Rstudio Server 时，我收到以下信息

Rstudio Initilization Error 
unable to connect to service

我通过以下方式安装了 Rstudio Server：

apt-get install gdebi-core r-base r-base-dev 
wget -c https://download2.rstudio.org/rstudio-server-0.99.489-amd64.deb
sudo gdebi rstudio-server-0.99.489-amd64.deb

sudo usermod -a -G rstudio lorencm
sudo service rstudio-server start

id  lorencm
uid=1000(lorencm) gid=1000(lorencm) groups=1000(lorencm),4(adm),24(cdrom),27(sudo),30(dip),46(plugdev),108(lpadmin),111(sambashare),999(docker),1001(rstudio)

我做错了什么？

我是新手R，我正在尝试使用 RStudio 连接到 PostgreSQL。

我已经安装RPostgreSQL并尝试了以下代码：

> library("DBI", lib.loc="~/R/win-library/3.2")
> library("RPostgreSQL", lib.loc="~/R/win-library/3.2")
> con <- dbConnect(dbDriver("PostgreSQL"), dbname="Delta", user="postgres")
Error in postgresqlNewConnection(drv, ...) : 
  RS-DBI driver: (could not connect postgres@local on dbname "Delta"

由于某种原因我无法连接到数据库。我想解决这个问题很长时间，但不知道如何解决。

当我刚刚编写一个在本地完美运行的应用程序时，但是当我尝试在线部署它时，我不断收到此错误：

错误信息：

准备部署应用程序...完成正在上传应用程序包：1969928...curl::curl_fetch_memory(url, handle = handle) 中出现错误：已达到超时：[api.shinyapps.io] 操作在 10000 毫秒后超时，值为 0收到 0 个字节调用：... tryCatch -> tryCatchList -> tryCatchOne -> 计时停止于：0 0 10

我的闪亮版本：1.4.0.2；操作系统：Windows10；集成开发环境：RStudio；

如果您能提供帮助，非常感谢！

我的完整代码：

library(shiny)
library(DT)
library(readr)

######################### read data #########################
pump1 <- read_csv("data/1.csv", col_names=TRUE)
pump2 <- read_csv("data/2.csv", col_names=TRUE)
pump3 <- read_csv("data/3.csv", col_names=TRUE)
pump4 <- read_csv("data/4.csv", col_names=TRUE)
pump5 <- read_csv("data/5.csv", col_names=TRUE)
pump6 <- read_csv("data/6.csv", col_names=TRUE)
# pump7 does not have instantFlow feature
pump7 <- read_csv("data/7.csv", col_names=TRUE)

colnames(pump1) <- c("Date", "backT", "frontT", "moduleT", "I", "V", "instantFlow", "openDegree", "vacuumDegree")
colnames(pump2) <- …

在尝试构建大约 2 周前工作的 PDF 后，不用大惊小怪，在新安装了 R、R studiobookdown等的新机器上，我遇到了这个错误：

Error: Input files not all in same directory, please supply explicit wd

我将.Rmd文件的章节分类到目录中，所以如果我rmd_subdir从trueto更改false，错误就会消失，但是......我无法处理项目根目录中包含 4-7 个每个场景的 100 多个章节；我会发疯的。

我有new_session: no我的_bookdown.yml，但这无济于事。

我对 R 的了解还不够多，无法开始对此进行诊断 - Google 返回4 个（！）结果，并且所有结果都是源代码。因此，我不确定要在此处包含哪些文件，因此请告诉我，我会将它们粘贴进去。

我如何构建

我按下Build BookRStudio 中显示的按钮，它会滴答作响并status 1在片刻后退出并出现上述错误。

确切的错误信息

==> rmarkdown::render_site(output_format = 'bookdown::gitbook', encoding = 'UTF-8')



processing file: book-book.Rmd
  |......................................................................| 100%
  ordinary text without R code


output …

目前包gtsave中的功能gt不支持MS-Word。我尝试将一个gt对象转换为一个flextable对象，然后另存为 word，但 flextable 不支持 gt 对象。当我只是复制粘贴html到 Word 时，美感就消失了。PNG 也不理想，因为当我调整图片大小时，字体大小与文档字体大小不匹配。有解决方法吗？

# Download package    
devtools::install_github("rstudio/gt")
# Load package     
library(gt)    
# Code        
gt_tbl =  gt(head(mtcars), caption = 'This is table caption') %>%
tab_header(title="Some Title", subtitle="Table 1: Mtcars with gt."
# Export the table
# As word
library(flextable)
 gt_tbl %>%
           flextable::as_flextable() %>%
           flextable::save_as_docx(path = "~")

错误

Error in UseMethod("as_flextable") : 
  no applicable method for 'as_flextable' applied to an object of class "c('gt_tbl', …

我试图在 rstudio 中加载 Seurat 包并收到此错误

Error: package or namespace load failed for \xe2\x80\x98Seurat\xe2\x80\x99 in dyn.load(file, DLLpath = DLLpath, ...):\n unable to load shared object '/wdata/msmuhammad/workbench/miniconda3/envs/test2/lib/R/library/Rcpp/libs/Rcpp.so':\n  /usr/lib/x86_64-linux-gnu/libstdc++.so.6: version `GLIBCXX_3.4.26' not found (required by /wdata/msmuhammad/workbench/miniconda3/envs/test2/lib/R/library/Rcpp/libs/Rcpp.so)\n

我在 conda 环境中使用 rstudio

我发现了一个关于没有版本“GLIBCXX_3.4.26”的相同问题的问题。这导致我运行这个命令

strings /usr/lib/x86_64-linux-gnu/libstdc++.so.6 | grep GLIBCXX \n

我得到了这个：

GLIBCXX_3.4\nGLIBCXX_3.4.1\nGLIBCXX_3.4.2\nGLIBCXX_3.4.3\nGLIBCXX_3.4.4\nGLIBCXX_3.4.5\nGLIBCXX_3.4.6\nGLIBCXX_3.4.7\nGLIBCXX_3.4.8\nGLIBCXX_3.4.9\nGLIBCXX_3.4.10\nGLIBCXX_3.4.11\nGLIBCXX_3.4.12\nGLIBCXX_3.4.13\nGLIBCXX_3.4.14\nGLIBCXX_3.4.15\nGLIBCXX_3.4.16\nGLIBCXX_3.4.17\nGLIBCXX_3.4.18\nGLIBCXX_3.4.19\nGLIBCXX_3.4.20\nGLIBCXX_3.4.21\nGLIBCXX_3.4.22\nGLIBCXX_3.4.23\nGLIBCXX_3.4.24\nGLIBCXX_3.4.25\nGLIBCXX_DEBUG_MESSAGE_LENGTH\n

因此，它没有所需的版本，我无法从终端安装 libstdc++，因为该步骤需要 sudo 命令，而我不是 sudo 者之一，而且我一直被拒绝许可。

乌班图18.04.6

Linux 4.15.0-154-通用

那么除了sudo命令之外还有什么办法可以解决这个问题呢？

我在 conda 环境中尝试了这个命令

strings msmuhammad/workbench/miniconda3/envs/test2/lib/libstdc++.so.6 | grep GLIBCXX\n

我得到了这个

GLIBCXX_3.4\nGLIBCXX_3.4.1\nGLIBCXX_3.4.2\nGLIBCXX_3.4.3\nGLIBCXX_3.4.4\nGLIBCXX_3.4.5\nGLIBCXX_3.4.6\nGLIBCXX_3.4.7\nGLIBCXX_3.4.8\nGLIBCXX_3.4.9\nGLIBCXX_3.4.10\nGLIBCXX_3.4.11\nGLIBCXX_3.4.12\nGLIBCXX_3.4.13\nGLIBCXX_3.4.14\nGLIBCXX_3.4.15\nGLIBCXX_3.4.16\nGLIBCXX_3.4.17\nGLIBCXX_3.4.18\nGLIBCXX_3.4.19\nGLIBCXX_3.4.20\nGLIBCXX_3.4.21\nGLIBCXX_3.4.22\nGLIBCXX_3.4.23\nGLIBCXX_3.4.24\nGLIBCXX_3.4.25\nGLIBCXX_3.4.26\nGLIBCXX_3.4.27\nGLIBCXX_3.4.28\nGLIBCXX_3.4.29\nGLIBCXX_DEBUG_MESSAGE_LENGTH\n_ZNKSt14basic_ifstreamIcSt11char_traitsIcEE7is_openEv@GLIBCXX_3.4\n_ZNSt13basic_istreamIwSt11char_traitsIwEE6ignoreEv@@GLIBCXX_3.4.5\n_ZNKSbIwSt11char_traitsIwESaIwEE11_M_disjunctEPKw@GLIBCXX_3.4\n_ZNKSt14basic_ifstreamIwSt11char_traitsIwEE7is_openEv@@GLIBCXX_3.4.5\nGLIBCXX_3.4.21\nGLIBCXX_3.4.9\n_ZSt10adopt_lock@@GLIBCXX_3.4.11\nGLIBCXX_3.4.10\nGLIBCXX_3.4.16\nGLIBCXX_3.4.1\n_ZNSt19istreambuf_iteratorIcSt11char_traitsIcEEppEv@GLIBCXX_3.4\nGLIBCXX_3.4.28\n_ZNSs7_M_copyEPcPKcm@GLIBCXX_3.4\nGLIBCXX_3.4.25\n_ZNSt19istreambuf_iteratorIcSt11char_traitsIcEEppEv@@GLIBCXX_3.4.5\n_ZNSs7_M_moveEPcPKcm@@GLIBCXX_3.4.5\n_ZNKSt13basic_fstreamIwSt11char_traitsIwEE7is_openEv@GLIBCXX_3.4\n_ZNKSt13basic_fstreamIcSt11char_traitsIcEE7is_openEv@GLIBCXX_3.4\n_ZNSbIwSt11char_traitsIwESaIwEE4_Rep26_M_set_length_and_sharableEm@@GLIBCXX_3.4.5\n_ZNSs4_Rep26_M_set_length_and_sharableEm@GLIBCXX_3.4\n_ZSt10defer_lock@@GLIBCXX_3.4.11\n_ZN10__gnu_norm15_List_node_base4swapERS0_S1_@@GLIBCXX_3.4\n_ZNSs9_M_assignEPcmc@@GLIBCXX_3.4.5\n_ZNKSbIwSt11char_traitsIwESaIwEE15_M_check_lengthEmmPKc@@GLIBCXX_3.4.5\n_ZNKSt14basic_ifstreamIcSt11char_traitsIcEE7is_openEv@@GLIBCXX_3.4.5\n_ZNSbIwSt11char_traitsIwESaIwEE7_M_moveEPwPKwm@GLIBCXX_3.4\nGLIBCXX_3.4.24\n_ZNVSt9__atomic011atomic_flag12test_and_setESt12memory_order@@GLIBCXX_3.4.11\nGLIBCXX_3.4.20\n_ZNSt11char_traitsIwE2eqERKwS2_@@GLIBCXX_3.4.5\nGLIBCXX_3.4.12\n_ZNSi6ignoreEv@@GLIBCXX_3.4.5\nGLIBCXX_3.4.2\n_ZNSt11char_traitsIcE2eqERKcS2_@@GLIBCXX_3.4.5\nGLIBCXX_3.4.6\nGLIBCXX_3.4.15\n_ZNKSt13basic_fstreamIcSt11char_traitsIcEE7is_openEv@@GLIBCXX_3.4.5\n_ZNSs9_M_assignEPcmc@GLIBCXX_3.4\nGLIBCXX_3.4.19\n_ZNKSt14basic_ofstreamIwSt11char_traitsIwEE7is_openEv@GLIBCXX_3.4\n_ZNSt19istreambuf_iteratorIwSt11char_traitsIwEEppEv@GLIBCXX_3.4\nGLIBCXX_3.4.27\n_ZN10__gnu_norm15_List_node_base7reverseEv@@GLIBCXX_3.4\n_ZN10__gnu_norm15_List_node_base4hookEPS0_@@GLIBCXX_3.4\n_ZNSt11char_traitsIwE2eqERKwS2_@GLIBCXX_3.4\n_ZNSbIwSt11char_traitsIwESaIwEE7_M_copyEPwPKwm@GLIBCXX_3.4\n_ZNSbIwSt11char_traitsIwESaIwEE7_M_copyEPwPKwm@@GLIBCXX_3.4.5\nGLIBCXX_3.4.23\nGLIBCXX_3.4.3\nGLIBCXX_3.4.7\n_ZNSi6ignoreEl@@GLIBCXX_3.4.5\n_ZNKSbIwSt11char_traitsIwESaIwEE11_M_disjunctEPKw@@GLIBCXX_3.4.5\n_ZNSt13basic_istreamIwSt11char_traitsIwEE6ignoreEv@GLIBCXX_3.4\n_ZNKSt13basic_fstreamIwSt11char_traitsIwEE7is_openEv@@GLIBCXX_3.4.5\n_ZNSbIwSt11char_traitsIwESaIwEE7_M_moveEPwPKwm@@GLIBCXX_3.4.5\nGLIBCXX_3.4.18\n_ZNSbIwSt11char_traitsIwESaIwEE4_Rep26_M_set_length_and_sharableEm@GLIBCXX_3.4\n_ZNSt13basic_istreamIwSt11char_traitsIwEE6ignoreEl@@GLIBCXX_3.4.5\n_ZSt15future_category@@GLIBCXX_3.4.14\n_ZNSi6ignoreEl@GLIBCXX_3.4\nGLIBCXX_3.4.29\n_ZNSt11char_traitsIcE2eqERKcS2_@GLIBCXX_3.4\n_ZNKSs15_M_check_lengthEmmPKc@GLIBCXX_3.4\n_ZN10__gnu_norm15_List_node_base8transferEPS0_S1_@@GLIBCXX_3.4\n_ZNSbIwSt11char_traitsIwESaIwEE9_M_assignEPwmw@GLIBCXX_3.4\n_ZNVSt9__atomic011atomic_flag5clearESt12memory_order@@GLIBCXX_3.4.11\n_ZNKSt14basic_ofstreamIcSt11char_traitsIcEE7is_openEv@@GLIBCXX_3.4.5\n_ZNKSt14basic_ofstreamIcSt11char_traitsIcEE7is_openEv@GLIBCXX_3.4\n_ZNSs7_M_moveEPcPKcm@GLIBCXX_3.4\n_ZNSt13basic_istreamIwSt11char_traitsIwEE6ignoreEl@GLIBCXX_3.4\n_ZNSbIwSt11char_traitsIwESaIwEE9_M_assignEPwmw@@GLIBCXX_3.4.5\n_ZNKSbIwSt11char_traitsIwESaIwEE15_M_check_lengthEmmPKc@GLIBCXX_3.4\n_ZNKSs11_M_disjunctEPKc@@GLIBCXX_3.4.5\n_ZN10__gnu_norm15_List_node_base6unhookEv@@GLIBCXX_3.4\nGLIBCXX_3.4.22\n_ZNSt19istreambuf_iteratorIwSt11char_traitsIwEEppEv@@GLIBCXX_3.4.5\n_ZNSi6ignoreEv@GLIBCXX_3.4\n_ZNSs7_M_copyEPcPKcm@@GLIBCXX_3.4.5\nGLIBCXX_3.4.8\nGLIBCXX_3.4.13\n_ZSt11try_to_lock@@GLIBCXX_3.4.11\n_ZNKSt14basic_ofstreamIwSt11char_traitsIwEE7is_openEv@@GLIBCXX_3.4.5\nGLIBCXX_3.4.17\nGLIBCXX_3.4.4\n_ZNKSs15_M_check_lengthEmmPKc@@GLIBCXX_3.4.5\n_ZNKSt14basic_ifstreamIwSt11char_traitsIwEE7is_openEv@GLIBCXX_3.4\n_ZNSs4_Rep26_M_set_length_and_sharableEm@@GLIBCXX_3.4.5\nGLIBCXX_3.4.26\n_ZNKSs11_M_disjunctEPKc@GLIBCXX_3.4\n …

R中如何使输出dput显示在一行中？

如何将获得的字符串复制到剪贴板dput？

我有人口统计数据，对于一些变量，我想显示平均值 (95% CI) 到目前为止：

> label (demog$Site) = "Site"
> label (demog$Sex) = "Sex"
> label (demog$Age) = "Age (years)"
> label (demog$Temperature) = "Temperature (Celcius)"
> label (demog$MOI) = "MOI"
> 
> table1(~Sex + Age + Temperature + MOI | Site, data = demog)

这给了我所有按采样点分层的变量，这就是我想要的。但它报告了每个连续变量的平均值（SD）、中位数[最小、最大]和缺失（除了“性别”之外的所有变量），这是我不想要的。

为了改变显示的内容，我尝试模仿： https: //benjaminrich.github.io/table1/vignettes/table1-examples.html

我做了：

> my.render.cont = function(x) {with(stats.apply.rounding(stats.default(x), digits=2), c("", "Mean (95% CI)"=sprintf("%s (± %s)", MEAN, (MEAN + SD*1.96), (MEAN - SD*1.96))))}
> my.render.cat = function(x) {c("", sapply(stats.default(x), function(y) with(y, sprintf("%d (%0.0f %%)", …

我想计算 R 中 logit 模型的某些参数的置信区间。我已阅读confint和confint.default的文档，但我无法理解有关何时适合应用每个函数的信息。有人可以向我解释一下吗？