小编Eli*_*lin的帖子

我一直试图为我的ggplot添加传奇,但失败了.我尝试了这个功能scale_colour_manual(),但传说没有显示出来.

ggplot()+
geom_line(data=Summary,aes(y=Y1,x= X),colour="darkblue",size=1 )+
geom_line(data=Summary,aes(y=Y2,x= X),colour="red",size=1  )

我的数据框"摘要"如下:

  X           Y1           Y2
139 1.465477e+16 7.173075e+15
277 1.044803e+16 9.275002e+15
415 1.059258e+16 8.562518e+15
553 1.033283e+16 8.268984e+15
691 9.548019e+15 1.022248e+16
830 1.008212e+16 8.641891e+15
968 9.822061e+15 9.315856e+15
1106 9.948143e+15 9.178694e+15
1244 1.013922e+16 8.825904e+15
1382 9.815094e+15 9.283662e+15

请告诉我如何在同一图表上对X绘制Y1,Y2,并在侧面添加图例.

我在一个文件夹中有近千篇pdf期刊文章.我需要在整个文件夹中对所有文章的摘要进行文本处理.现在我正在做以下事情:

dest <- "~/A1.pdf"

# set path to pdftotxt.exe and convert pdf to text
exe <- "C:/Program Files (x86)/xpdfbin-win-3.03/bin32/pdftotext.exe"
system(paste("\"", exe, "\" \"", dest, "\"", sep = ""), wait = F)

# get txt-file name and open it
filetxt <- sub(".pdf", ".txt", dest)
shell.exec(filetxt)

通过这个,我将一个pdf文件转换为一个.txt文件,然后将该摘要复制到另一个.txt文件中并手动编译.这项工作很麻烦.

如何从文件夹中读取所有单篇文章并将其转换为仅包含每篇文章摘要的.txt文件.可以通过限制每篇文章中的摘要和引言之间的内容来完成; 但我无法这样做.任何帮助表示赞赏.

遇到了这个看似新的软件包 - skimr，它看起来很漂亮，并且正在尝试它，看起来我缺少一些软件包安装。Skim 工作正常，只是它不打印直方图，它应该打印数字变量。我只是尝试文档中给出的示例。

此处链接到 skimr 文档 - https://github.com/ropenscilabs/skimr#skimr

这是我正在使用的代码

    devtools::install_github("hadley/colformat")
    devtools::install_github("ropenscilabs/skimr")
    library(skimr)
    a<-skim(mtcars)
    dim(a)
    View(a)

我看到的是一些 ASCII/unicode 字符，而不是打印直方图。

Scatterplot<-ggplot(
     diamonds[sample(nrow(diamonds), 1000), ],
     aes(carat, price, colour=clarity)
  )+
  geom_point(position="jitter", alpha=0.6)+
  facet_grid(~cut) + 
  scale_x_continuous(breaks=seq(0, 5, 1)) + 
  geom_boxplot(alpha=0, colour="black") +  
  scale_color_brewer(palette = "Set1")
  plot(Scatterplot)

我找不到有关此警告的任何线索。有谁知道？请检查图片：

我想在导航栏上修复徽标,我想要增加导航栏的高度并修改它而不调整图像大小amd当我将网站缩小到移动视图时,徽标会显示在折叠按钮下方.网站预览(http://threeguys.us/works/testing.html)

testing.html

<div class="jumbotron">
<div class="container">
        <nav class="navbar navbar-inverse">
            <div class="container-fluid">
                <div class="navbar-header">
                    <button type="button" class="navbar-toggle" data-toggle="collapse" data-target="#myNavbar">
                    <span class="icon-bar"></span>
                    <span class="icon-bar"></span>
                    <span class="icon-bar"></span>
                    </button>
                    <a class="navbar-brand" href="#"><img src="images/logo/logo.png" width="250px" height="60px"></a>
                </div>

                <div class="collapse navbar-collapse" id="myNavbar">
                    <ul class="nav navbar-nav navbar-right">
                        <li class="active"><a href="#">Home</a></li>
                        <li><a href="#">Rates</a></li>
                        <li><a href="#">Employee</a></li>
                        <li><a href="#">Contact Us</a></li>
                    </ul>
                </div>
            </div>
        </nav>
        <div class="call_button">
             <button type="button" class="btn btn-default">call us</button>
        </div>
        </div>
        </div><!--jumbotron end-->

style.css文件

 .jumbotron
 {
  text-align: center;
  background-size: cover;
  background-image: url(images/car/car.png);
 }
 .container
 {
  padding:0px; …

我正在尝试编写一个包含方程式的文档,我希望方程式能够遵循换行符.当我编织HTML时这种方法很好,但是当我编写pdf时却没有.

$$ 
x_1 - ? +\\
x_2 - ? +\\
x_3 - ? +\\
$$

我也试过\newline,甚至\hfill \break.我还尝试了在RStudio的RMarkdown备忘单上列出的不同乳胶发动机.

我有一个 CSV 文件，有 600,000 行和 1339 列，共 1.6 GB。1337 列是采用 1 或 0 值的二进制文件，其他 2 列是数字和字符变量。

我使用带有以下代码的包 readr 提取数据

VLU_All_Before_Wide <- read_csv("C:/Users/petas/Desktop/VLU_All_Before_Wide_Sample.csv")

当我使用以下代码检查对象大小时，它约为 3 GB。

> print(object.size(VLU_All_Before_Wide),units="Gb")
3.2 Gb

在下一步中，我想使用下面的代码为 LASSO 回归创建训练和测试集。

set.seed(1234)
train_rows <- sample(1:nrow(VLU_All_Before_Wide), .7*nrow(VLU_All_Before_Wide))

train_set <- VLU_All_Before_Wide[train_rows,]
test_set <- VLU_All_Before_Wide[-train_rows,]

yall_tra <- data.matrix(subset(train_set, select=VLU_Incidence))
xall_tra <- data.matrix(subset(train_set, select=-c(VLU_Incidence,Replicate)))
yall_tes <- data.matrix(subset(test_set, select=VLU_Incidence))
xall_tes <- data.matrix(subset(test_set, select=-c(VLU_Incidence,Replicate)))

当我开始 R 会话时，RAM 约为 3 GB，当我执行上述所有代码时，RAM 现在为 14 GB，留下一个错误，提示无法分配大小为 4 GB 的向量。除了 3 个 Chrome 窗口之外，没有其他应用程序在运行。我删除了原始数据集、训练和测试数据集，但它仅将 RAM 减少了 0.7 至 1 …

我有两个需求，都连接到一个类似于下面可重现的数据集。我有一个 18 个实体的列表，每个实体由 17-19 个 data.frames 的列表组成。可重现的数据集如下（有矩阵而不是 data.frames，但我认为这没有区别）：

test <- list(list(matrix(10:(50-1), ncol = 10), matrix(60:(100-1), ncol = 10), matrix(110:(150-1), ncol = 10)),
             list(matrix(200:(500-1), ncol = 10), matrix(600:(1000-1), ncol = 10), matrix(1100:(1500-1), ncol = 10)))

1. 我需要将每个数据帧/矩阵分为两部分（按给定的行数）并保存到新的列表列表中
2. 其次，我需要从data.frame列表列表中的每一列中提取并保存给定的列。

除了for()，我不知道如何去做，但我相信它应该可以与apply()函数系列一起使用。

感谢您阅读

编辑：

我的预期输出如下所示：

extractedColumns <- list(list(matrix(10:(50-1), ncol = 10)[, 2], matrix(60:(100-1), ncol = 10)[, 2], matrix(110:(150-1), ncol = 10)[, 2]),
                         list(matrix(200:(500-1), ncol = 10)[, 2], matrix(600:(1000-1), ncol = 10)[, 2], matrix(1100:(1500-1), ncol = 10)[, 2]))


numToSubset <- …

我正在尝试使用 function 反转列表list.reverse。我运行其文档中的一个示例。

x <- list(a=1,b=2,c=3)
list.reverse(x)

R 返回错误消息“List.reverse(x) 中的错误：找不到函数“list.reverse””。

我必须在我的网站上在线进行一些修改,我不希望用户看到这些页面.所以我将index.php重命名为index_orig.php,然后我将另一个index.html显示给我的用户显示一条消息(正在构建中的WebSite).

我的问题是我想在线访问其余页面以检查修改,直到满意为止,但是当我尝试通过整个URL访问其余页面时(显示404错误).示例:www.mywebsite.com/floder1/pagetarget.php.

我希望根据用户的输入更改 Shiny 应用程序中文本的颜色。这是一个简单的例子。这基本上是正确的方法吗？如果我对 CSS 进行硬编码，它就可以工作。例如，如果我改变：

div(style = css_stub,

到

div(style = "inline-block;  red;",

文本颜色发生变化。请解释如何以编程方式更改 Shiny 应用程序中的 css。

library(shiny)

css_stub <- paste0("'", "inline-block;  color:black;", "'")

ui <- fluidPage(

  titlePanel("Color Test"),
  sidebarLayout(
    sidebarPanel(

      selectInput(inputId = "colors",
                  label = "Choose a color:",
                  choices = c("red", "blue"))
    ),

    mainPanel(
      div(style = css_stub, 
          textOutput("text_out"))

    )
  )
)

server <- function(input, output) {
  observeEvent(input$colors, {
    if (input$colors == "red") {
      css_stub <- paste0("'", "inline-block;  color:red;", "'")
      output$text_out <- renderText({"hello - red"})
    } else {
      css_stub <- …

我想在Windows上使用skimR包中的函数skimr.不幸的是,在许多情况下,列hist打印不正确(带有许多<U+2587>类似符号),如下例所示.

问题:是否有一种简单的方法可以禁用"hist"列并防止它被打印或阻止它被计算？有选择hist = FALSE吗？

capture.output(skimr::skim(iris))
#>  [1] "Skim summary statistics"                                                                         
#>  [2] " n obs: 150 "                                                                                    
#>  [3] " n variables: 5 "                                                                                
#>  [4] ""                                                                                                
#>  [5] "-- Variable type:factor ------------------------------------------------------------------------"
#>  [6] " variable missing complete   n n_unique                       top_counts"                        
#>  [7] "  Species       0      150 150        3 set: 50, ver: 50, vir: 50, NA: 0"                        
#>  [8] " ordered"                                                                                        
#>  [9] "   FALSE"                                                                                        
#> [10] "" …

我的资料

conc_data=structure(list(kod_nar.id = c(1L, 3L, 2L), 
    x123_1 = c(0L, 0L, 0L), 
    x124_2 = c(0, 0.123, 0.122), 
    x125_3 = 0:2, 
    x126_4 = c(0, 0.234, 0.99)),
   .Names = c("kod_nar.id", "x123_1", "x124_2", "x125_3", "x126_4"), 
   class = "data.frame", row.names = c(NA, -3L))

这里有4列，但是每2列需要合并为一列，并具有第一列的名称。换句话说，每对列都应合并在一起，并串联数字的值。结果，我们在数据框中将只有2列。数据帧中的每一列都有一对，列数是偶数，列的顺序是第一对，第二对，依此类推

IE输出

  kod_nar.id   x123_1   x125_3
1          1        0        0
2          3 0(0.123) 1(0.234)
3          2 0(0.122)  2(0.99)

怎么做？