小编Gor*_*rka的帖子

我试图使用R的后向消除来获得最终模型,但是当我运行代码时出现以下错误消息.有人可以帮帮我吗？

base<-lm(Eeff~NDF,data=phuong)
fullmodel<-lm(Eeff~NDF+ADF+CP+NEL+DMI+FCM,data=phuong)
 step(full, direction = "backward", trace=FALSE )

> Error in step(full, direction = "backward", trace = FALSE) : 
number of rows in use has changed: remove missing values?

我试图从女儿的画中删除水平线，但不太正确。

我遵循的方法是创建一个带有水平线的掩码（/sf/answers/4018733001/），然后从原始掩码中删除该掩码（https://docs.opencv.org/3.3.1/ ） df/d3d/tutorial_py_inpainting.html）。

正如您在下面的图片中看到的，这仅部分删除了水平线，并且还产生了一些扭曲，因为一些原始绘图的水平线也最终出现在蒙版中。

任何改进这种方法的帮助将不胜感激！

创建带有水平线的蒙版

来自/sf/answers/4018733001/

import cv2
import numpy as np

img = cv2.imread("input.png", 0)

if len(img.shape) != 2:
    gray = cv2.cvtColor(img, cv2.COLOR_BGR2GRAY)
else:
    gray = img

gray = cv2.bitwise_not(gray)
bw = cv2.adaptiveThreshold(gray, 255, cv2.ADAPTIVE_THRESH_MEAN_C, 
cv2.THRESH_BINARY, 15, -2)

horizontal = np.copy(bw)

cols = horizontal.shape[1]
horizontal_size = cols // 30

horizontalStructure = cv2.getStructuringElement(cv2.MORPH_RECT, (horizontal_size, 1))

horizontal = cv2.erode(horizontal, horizontalStructure)
horizontal = cv2.dilate(horizontal, horizontalStructure)

cv2.imwrite("horizontal_lines_extracted.png", horizontal)

  

使用蒙版去除水平线

来自https://docs.opencv.org/3.3.1/df/d3d/tutorial_py_inpainting.html

import numpy as np
import …

我需要在 RMarkdown 文档中拟合一个大的 igraph 绘图，但是很多节点和标签重叠（与下图类似）。

我认为使用 'rescale=FALSE' 参数可以工作，但问题是绘图大小大于页面大小，无论 Fig.height、fig.width 选项如何。

您可以在下面看到一个可重现的示例（另存为 .Rmd 和 Knit）：

---
output: pdf_document
---

# How to resize page to fit plot?
```{r pressure, echo=FALSE, fig.height=20, fig.width=20, message=FALSE, warning=FALSE}
library(igraph)
st <- make_star(500)
set.seed(100)
plot(st, vertex.size=10, vertex.label=NA, rescale=FALSE) 
```

有没有办法将页面大小调整为非重新缩放的 igraph？

sjPlot 包（http://www.strengejacke.de/sjPlot）具有 tab_model() 函数，可以为许多模型类型创建漂亮的 html 表格。我正在尝试在 Overleaf 中使用这些表格，但我不确定如何“轻松”将它们转换为乳胶而不丢失一些格式等。

我的非常hacky方法如下（发布在https://github.com/Rapporter/pander/issues/298）。

任何改善这一点的帮助将不胜感激。

下面是一个可重现的示例：

library(lme4)\nlibrary(sjPlot)\nlibrary(XML)\nlibrary(RCurl)\nlibrary(rlist)\nlibrary(janitor)\nlibrary(dplyr)\nlibrary(knitr)\n\n# This is a terrible model\nmodel = lmer(mpg ~ cyl * disp + (1|vs), mtcars)\n\n# We save the sjPlot table to an .html file (see the table below)\nsjPlot::tab_model(\n  model,\n  show.r2 = TRUE,\n  show.icc = FALSE,\n  show.re.var = FALSE,\n  p.style = "scientific",\n  emph.p = TRUE,\n  file = "Downloads/temp.html")\n

现在我们可以读取 .html 文件并对其进行一些清理：

tables <- list.clean(readHTMLTable("~/Downloads/temp.html"), fun = is.null, recursive = …