小编Sté*_*ent的帖子

首先,如果术语"未转义的unicode"和"utf8整数"不正确,我深表歉意; 当我谈论编码时,我真的不知道我在说什么.

作为一个具体的例子,我想将字符串转换"\\u00b5ABC"为字符串"\181ABC"(\u00b5并\181对应于µ).用"字符串"我的意思是String或Text.

我知道如何通过使用曲折(也许是可笑的)方式实现这一目标:

import Data.Aeson (decode)
import Data.ByteString.Lazy (packChars)
import Data.Text (Text)
decode (packChars "\"\\u00b5ABC\"") :: Maybe Text

我准备打赌存在一种更直接的方式......

编辑

根据@ Alec的评论,我提供了更多背景信息.在后台,有一个Javascript程序接收一个字符串,\\uxxxx 当这个unicode表示位于\u007F和之间时,\uFFFF用它们的unicode表示替换该字符串中的字符.

在Haskell方面,我收到这个新字符串,我想\\uxxxx用相应的utf8整数表示替换它.

如何用plotly包得到虚线趋势线？根据文档，应该是：

dat <- iris[,2:3]
colnames(dat) <- c("x","y")
p <- plot_ly(dat, x = x, y = y, type="scatter", mode="markers", name="data")
add_trace(p, x = x, y = fitted(lm(y~x, data=dat)), line = list(dash="dashed"), name="regression line")

但趋势线是稳固的。

我想在DT :: datatable中的列中合并几行闪亮.有可能这样做吗？

目前我能够输出看起来像这样的东西:

但理想情况下,我想合并行,并希望输出这样的东西:

是否有可能在DT :: datatable中合并这样的行？

这有效：

> match.arg("", choices="")\n[1] ""\n

但：

> match.arg("", choices=c("", "blue"))\nError during wrapup: \'arg\' should be one of \xe2\x80\x9c\xe2\x80\x9d, \xe2\x80\x9cblue\xe2\x80\x9d\n

这是一个错误吗？有没有一种简单的方法可以让它发挥作用？

当然，我可以采取解决方法，例如使用"none"代替""，然后替换，以防这是匹配值。

编辑：一个可能但不完美的解决方法

choices <- c("", "blue")\nchoices[charmatch("", table=choices)]\n

NA如果没有匹配值则返回。因此，在这种情况下仍然需要编写错误消息。

考虑以下简单的Haskell程序,该程序将文件作为字节串读取并tmp.tmp从该字节串写入文件:

module Main
  where
import System.Environment
import qualified Data.ByteString.Lazy as B

main :: IO ()
main = do
  [file] <- getArgs
  bs <- B.readFile file
  action <- B.writeFile "tmp.tmp" bs
  putStrLn "done"

它被编译为名为的可执行文件tmptmp.

我的计算机上有两个硬盘驱动器:C驱动器和U驱动器,这个是网络驱动器,此网络驱动器处于脱机状态.

现在,让我们试试吧tmptmp.

当我运行它时C,没有问题; 我在下面运行两次,第一次打开文件,C第二次打开文件U:

C:\HaskellProjects\imagelength> tmptmp LICENSE
done

C:\HaskellProjects\imagelength> tmptmp U:\Data\ztemp\test.xlsx
done

现在我U用C驱动器上的文件运行它,没问题:

U:\Data\ztemp> tmptmp C:\HaskellProjects\imagelength\LICENSE
done

当我使用驱动器上的文件运行它UU时会发生此问题: …

基本上我对当前版本的Plotly有一个问题,它没有正确显示盒子图的hoverinfo.它省略了标签(最小值,最大值,中位数等),因此当我绘制下面的图时:

plot_ly(y = ~rnorm(50), type = "box")

我没有必要的标签.

有没有办法让我给自定义悬停标签,所以他们像这样Max:1.97,q3:0.84,中位数:0.25等？

我的Plotly版本是'4.7.1'

我了解如何自定义散点图中的悬停文本plotly,但是框图不接受"text"属性.Warning message: 'box' objects don't have these attributes: 'text'.我有超过300个x轴变量,并且在两组(A或B)中有编号样本(1-50),我想在同一个框图中一起绘制,然后我想区分样本数和将光标移到异常值上时,通过悬停文本进行分组.我想要自定义数据标签而不是自动四分位标签.这可能与plotly箱形图有关吗？

library(plotly) 
library(magrittr)

plot_ly(melt.s.data, 
          x = ~variable, 
          y = ~value,
          type = 'box', 
          text = ~paste("Sample number: ", Sample_number, 
                       '<br>Group:', Group)) %>% 
        layout(title = "Individual distributions at each x")

这里有一些示例数据只显示了5个变量(但是当推断到我的300时,代码应该工作)...

#sample data
set.seed(456)
#Group A
sample.data_a <- data.frame(Class = "red", Group = "A",
                            Sample_number = seq(1,50,by=1), 
                            x1= rnorm(50,mean=0, sd=.5), 
                            x2= rnorm(50,mean=0.5, sd=1.5), 
                            x3= rnorm(50,mean=5, sd=.1), 
                            x4= rnorm(50,mean=0, sd=3.5),
                            x5= rnorm(50,mean=-6, sd=.005))
#Group B
sample.data_b <- data.frame(Class …

我有一个图，其中第一条迹线为灰色，该迹线将被其他颜色的迹线覆盖。我的问题是在plotly4.7.1 版本中。以及 4.8.0 版本。我无法调整颜色。

一年前这段代码可以工作：

mysim=data.frame(x=rep(1:4,4),y=rbinom(16,10,0.5),id=rep(1:4,each=4))

my_colors<-c(             ## add the standard plotly colors
        '#1f77b4',  #// muted blue
         '#ff7f0e',  #// safety orange
         '#2ca02c',  #// cooked asparagus green
         '#d62728'  #// brick red
             ) 


plot_ly() %>%
 add_trace(x=1:4,y=rbinom(4,10,0.4),type='scatter',mode='lines',
            line=list(color='#CCCCCC',dash='dashed'),hoverinfo='skip',opacity=0.25) %>% 
  add_trace(data=mysim,x=~x,y=~y,type='scatter',mode='lines', split=~as.factor(id),
            line=list(color=my_colors),hoverinfo='skip',opacity=1) 

遗憾的是我不再拥有那台机器了。plotly但从那时起似乎发生了一些变化。我还尝试使用color参数而split不是colors-listline来指定颜色。它没有任何影响。我仍然明白这个情节：

我在这里缺少什么？我怎样才能让它发挥作用？

我用Haskell OpenGL绘制了Barth sextic并且存在问题.我也用R(用包rgl和misc3d)绘制它,没有问题.这两种算法(在Haskell和R中)非常相似.Barth sextic是一个隐式曲面,在Haskell中我使用行进立方体算法计算这个曲面的三角剖分,我通过将其中一个转换misc3d为Haskell和C.我使用顶点法线,每个由隐式渐变定义方程.

这是问题所在:

我不想要这些黑色阴影.当我看到sextic的背面,通过180°旋转,没有这样的阴影:

这个Github仓库中提供了完整的代码.以下是与颜色相关的代码部分:

fuchsia :: Color4 GLfloat
fuchsia = Color4 1.00 0.00 1.00 1
discord :: Color4 GLfloat
discord = Color4 0.21 0.22 0.25 1

  renderPrimitive Triangles $ mapM_ drawTriangle triangles
  swapBuffers
  where
    drawTriangle ((v1,v2,v3), (n1,n2,n3)) = do
      materialDiffuse FrontAndBack $= fuchsia
      normal n1
      vertex v1
      normal n2
      vertex v2
      normal n3
      vertex v3

  clearColor $= discord
  materialAmbient FrontAndBack $= black
  materialDiffuse FrontAndBack $= white
  materialEmission FrontAndBack $= black …

我想将jquery UI与shiny（不使用shinyjqui库）一起使用。当我有一个图层并尝试使用 jqueryUI 移动它时，它工作得很好，但是当使用 insertUI 动态生成该图层时，它就不起作用了。

这是代码：

library(shiny)\n\nui <- fluidPage(theme = "style.css",\n            tags$script(src = "jquery-ui.js"),\n            tags$script(src = "script2.js"),\n            actionButton("add","Add layer"),\n            div(class="aux"),\n            div(id="works",style="width:300px;height:200px;background:red"))\n\n\n\nserver <- function(input, output, session) {\n\n    observeEvent(input$add,{\n    insertUI(\n      selector = ".aux",\n      where="afterEnd",\n      ui  = div(id=paste0("new",input$add),style="width:300px;height:200px;background:blue")\n\n    )\n\n\n  })\n\n\n\n\n\n\n}\nshinyApp(ui, server)\n

以及js脚本

  $( function() {\n\n\n    $("#works").draggable();\n    $("#new1").draggable();\n\n\n  });\n

谢谢！