小编Spa*_*man的帖子

我想要一个图像（最好是SVG）作为R中现有图形的插图，并在图像周围放置黑色边框。

R中的基本功能可能吗？我需要包装吗？

如何使用文件输入模拟python交互式会话并保存成绩单？换句话说,如果我有一个文件sample.py:

#
# this is a python script
#
def foo(x,y):
   return x+y

a=1
b=2

c=foo(a,b)

c

我希望sample.py.out看起来像这样(省略python横幅):

>>> #
... # this is a python script
... #
... def foo(x,y):
...    return x+y
... 
>>> a=1
>>> b=2
>>> 
>>> c=foo(a,b)
>>> 
>>> c
3
>>> 

我已经尝试过stdin到python,twitter的建议是'bash script'没有细节(用bash中的脚本命令播放,没有欢乐).我觉得应该很容易,而且我错过了一些简单的东西.我是否需要使用exec或其他东西编写解析器？

Python或ipython解决方案没问题.然后我可能希望转换为HTML和语法在Web浏览器中突出显示,但这是另一个问题....

我在阅读数据集时遇到问题

我的代码:

require(igraph)
g <- graph(c(0, 1, 1, 2, 2, 0, 1, 3, 3, 4, 
               4, 5, 5, 3, 4, 6, 6, 7, 7, 8, 
               8, 6, 9, 10, 10, 11, 11, 9))

错误:

Error in graph(c(0, 1, 1, 2, 2, 0, 1, 3, 3, 4, 4, 5, 5, 3, 4, 6, 6, 7,  : 
  At structure_generators.c:84 : Invalid (negative) vertex id, Invalid vertex id

给出一个向量:

例如.:

a = c(1, 2, 2, 4, 5, 3, 5, 3, 2, 1, 5, 3)

使用a[a%in%a[duplicated(a)]]我可以删除不重复的值.但是,它仅适用于仅出现一次的值.

我将如何继续删除此三次中不存在的所有值？(或更多,在其他情况下)

预期结果将是:

2 2 5 3 5 3 2 5 3

删除1和4,因为它们只出现两次和一次

我目前正在开展一个项目,我需要找到VIN编号的制造商,型号和年份.我列出了300个不同的VIN号码.通过每个单独的VIN编号并手动将制造商,型号和年份输入excel是非常低效和乏味的.

我已经尝试使用带有SelectorGadget的Rvest包在R中编写几行代码以便抓取这个站点来获取信息但是我没有成功:http://www.vindecoder.net/？ edit = 1G2HX54K724118697&subsmit = Decode

这是我的代码:

library("rvest")
Vnum = "1G2HX54K724118697"
site <- paste("http://www.vindecoder.net/?vin=", Vnum,"&submit=Decode",sep="")
htmlpage <- html(site)
VINhtml <- html_nodes(htmlpage, ".odd:nth-child(6) , .even:nth-child(5) , .even:nth-child(7)")
VIN <- html_text(forecasthtml)
paste(forecast, collapse =" ")

当我尝试运行VINhtml时,我收到错误消息:list()attr(,"class")[1]"XMLNodeSet"

我不知道我做错了什么.我认为它不起作用,因为它是一个动态的网页,但我可能是错的.有没有人对解决这个问题的最佳方法有任何建议？

我也愿意使用其他网站或其他方法来解决这个问题.我只是想找到这些VIN的型号,制造商和型号年份.有谁能帮我找到一个有效的方法吗？

下面是一些示例的VIN:YV4SZ592561226129 YV4SZ592371288470 YV4SZ592371257784 YV4CZ982871331598 YV4CZ982581428985 YV4CZ982481423003 YV4CZ982381423543 YV4CZ982171380593 YV4CZ982081460887 YV4CZ852361288222 YV4CZ852281454409 YV4CZ852281454409 YV4CZ852281454409 YV4CZ592861304665 YV4CZ592861267682 YV4CZ592561266859

R中下划线的功能是什么？例如,在下面的代码中,行:; 确定显示的当前数据是否放入变量中; 但是,如果我将其更改为,则过滤的所有数据都将放入变量中.input$tbl_rows_currentfiltered_datainput$tbl_rows_allfiltered data

我理解它在这里是如何运作的,但它的一般用途是什么？

ui = fluidPage(dataTableOutput('tbl'),
           plotOutput('plot1')
)

server = function(input, output) {   
 output$tbl = renderDataTable({
    datatable(KSI, filter="top",rownames=TRUE,options = list(lengthChange = FALSE))
})
output$plot1 = renderPlot({  
   filtered_data <- as.numeric(*input$tbl_rows_current*)     
   print(filtered_data)   
 })
}  
shinyApp(ui=ui, server=server)

我有一个函数返回给定两个日期的句点的字符串表示,但我希望用户能够控制格式.为此,我正在使用sprintf并且调用者传入格式字符串,使调用者可以灵活地使用以下内容:

> sprintf("from %s - %s","Mon 21","Sun 27")
[1] "from Mon 21 - Sun 27"

要么

> sprintf("%s - %s inclusive","Mon 21","Sun 27")
[1] "Mon 21 - Sun 27 inclusive"

我发现如果格式字符串中没有足够的%标记,那么无关紧要,所以你可以这样做:

> sprintf("week begin %s","Mon 21","Sun 27")
[1] "week begin Mon 21"

但我找不到一种方法来构造一个格式字符串,该字符串删除第一个参数并返回"周末Sun 27".注意我真的想要一个只改变格式字符串的解决方案,或者知道这是不可能的......

我尝试了一些技巧,比如制作第一个格式0宽度%0s但没有喜悦:

> sprintf("%0s week ending %s","Mon 21","Sun 27")
[1] "Mon 21 week ending Sun 27"

显然,我可以通过让调用者说出格式是否使用开始日期和/或结束日期,但是如果有一种方法可以使用sprintf格式字符串来完成这项工作.

我有一个庞大的IP地址列表.有没有办法使用R来获得这些地址的相应纬度和经度？

谢谢.

拉维

我有这个MTST专栏,当印刷产量时

 [1] "<U+0391>G<U+03A1><U+0399><U+039D><U+0399><U+039F>                                 "
 [2] "<U+0391>G<U+03A7><U+0399><U+0391><U+039B><U+039F>S                                "
 [3] "<U+0391><U+0399>G<U+0399><U+039D><U+0391>                                  "
 [4] "<U+0391><U+0399>G<U+0399><U+039F>                                   "
 [5] "<U+0391><U+0399><U+0394><U+0397><U+03A8><U+039F>S                                 "
 [6] "<U+0391><U+039A><U+03A4><U+0399><U+039F>(<U+03A0><U+03A1><U+0395><U+0392><U+0395><U+0396><U+0391>)                          "
 [7] "<U+0391><U+039B><U+0395><U+039E><U+0391><U+039D><U+0394><U+03A1><U+039F><U+03A5><U+03A0><U+039F><U+039B><U+0397>                          "
 [8] "<U+0391><U+039B><U+0399><U+0391><U+03A1><U+03A4><U+039F>S                                "

我尝试使用Unicode库并做到MTST<- as.u_char(MTST)这一点

[1] <NA> <NA> <NA> <NA> <NA> <NA> <NA> <NA>

我也试着dump和dput,但什么都没有改变.

请注意,MTST最初是类型character.

感谢您的帮助.谢谢

编辑:下面dput(MTST)示出了

c("<U+0391>G<U+03A1><U+0399><U+039D><U+0399><U+039F>                                 ",
"<U+0391>G<U+03A7><U+0399><U+0391><U+039B><U+039F>S                                ",
"<U+0391><U+0399>G<U+0399><U+039D><U+0391>                                  ",
"<U+0391><U+0399>G<U+0399><U+039F>                                   ",
"<U+0391><U+0399><U+0394><U+0397><U+03A8><U+039F>S                                 ",
"<U+0391><U+039A><U+03A4><U+0399><U+039F>(<U+03A0><U+03A1><U+0395><U+0392><U+0395><U+0396><U+0391>)                          ",
"<U+0391><U+039B><U+0395><U+039E><U+0391><U+039D><U+0394><U+03A1><U+039F><U+03A5><U+03A0><U+039F><U+039B><U+0397>                          ",
"<U+0391><U+039B><U+0399><U+0391><U+03A1><U+03A4><U+039F>S                                ",
"<U+0391><U+039D><U+0391><U+0392><U+03A1><U+03A5><U+03A4><U+0391>                                ",
"<U+0391><U+039D><U+0394><U+03A1><U+0391><U+0392><U+0399><U+0394><U+0391>                               ",
"<U+0391><U+039D>OG<U+0395><U+0399><U+0391>                                 ",
"<U+0391><U+03A1><U+0391><U+039E><U+039F>S …

嗨，我是Tensorflow的新手。我想做的是在R中这样的事情：

mat = tf$Variable(matrix(1:4, nrow = 2))
apply(mat, 1, cumprod)

在Python API或R tensorflow包中的Tensorflow中这是否可行？谢谢！

编辑：tf$cumprod实际上是我想要的。