小编Sté*_*ent的帖子

我做了以下图表:

> ddd
      UV.NF TRIS            volvol
2  145.1923   31  500 µl / 625  µl
3  116.3462   50  500 µl / 625  µl
4  127.1635   60  500 µl / 625  µl
5  125.9615   69  500 µl / 625  µl
6  162.0192   30    1 ml / 625  µl
7  166.8269   50    1 ml / 625  µl
8  176.4423   60    1 ml / 625  µl
9  171.6346   70    1 ml / 625  µl
19 292.3077   31 500 µl / 2500  µl
20 321.1538 …

所述rglř包允许绘制交互式3D图形和一个html文件在这些图中保存(与writeWebGL()功能).

我想将这样一个交互式3D图形放在PowerPoint演示文稿中.可能吗 ？

编辑:在谷歌的帮助下研究Dieter Menne的答案后,我得出以下结论:

• 目前,Luke Tierney将3D图形转换为U3D文件和/或Asymptote文件的方法仅适用于使用misc3d包而不是rgl包创建的图形.
• 将3D rgl图形导出到VRML/X3D文件已作为未来计划公布.也许这将允许将3D rgl图形嵌入到Powerpoint和/或LaTeX演示中.

编辑:相关讨论

我有一个mins415920号码列表,全部应该关闭0.1:

Prelude Lib> take 5 mins
[9.83610706554002e-2,9.847021825032128e-2,9.847021825032128e-2,9.898395035483082e-2,9.898395035483082e-2]

然而:

Prelude Lib> minimum mins
0.10087849151477328

该minimum函数不应该返回最小值？

这个结果听起来似乎有道理:

Prelude Lib> foldr min 100000 mins
1.1763616593045858e-4

这是一个错误,还是我误解了minimum？

类似的问题maximum:

Prelude Lib> maximum mins
3261145.0627630088
Prelude Lib> foldr max 0 mins
0.1207868227600914

对列表进行排序会产生最大值的第三个结果:

Prelude Lib> import Data.List as L
Prelude Lib L> mins' = sort mins
Prelude Lib L> head mins'
1.1763616593045858e-4
Prelude Lib L> last mins'
0.10295664278431726

并且在排序列表上应用minimum并maximum产生最小的第三个结果:

Prelude Lib L> …

是否有可能以及如何在knitr/Sweave报告中使用LaTeX数学表达式kable？在下面的示例中,$x^2$"按原样"呈现.

随着xtable,对于下面的例子中,我将使用该选项sanitize.colnames.function = function(x) x的print.xtable.有这样的选择kable吗？

\documentclass{article}
\usepackage{booktabs}
\begin{document}

<<>>=
library(knitr)
dat <- mtcars[1:5,1:5]
options(knitr.table.format = "latex")
@

<<results='asis'>>=
names(dat)[1] <- "$x^2$"
kable(dat, booktabs=TRUE, caption="My table")
@

\end{document}

使用 R，如何生成位于和 之间的n随机数x_1, ...，其总和为？x_n-110

推广到另一个总和和另一个范围怎么样？

我希望利用Plotly中的强大功能,但我很难弄清楚如何将回归平面添加到三维散点图中.以下是如何开始使用3d绘图的示例,是否有人知道如何在下一步中添加并添加平面？

library(plotly)
data(iris)


iris_plot <- plot_ly(my_df, 
                x = Sepal.Length, 
                y = Sepal.Width, 
                z = Petal.Length, 
                type = "scatter3d", 
                mode = "markers")

petal_lm <- lm(Petal.Length ~ 0 + Sepal.Length + Sepal.Width, 
               data = iris)

此函数返回一个包含列表最小值和最大值的2元组:

import Control.Arrow ((***), (>>>), (&&&))
import Data.Semigroup (getMin, getMax, Min(..), Max(..))

bounds :: (Bounded a, Ord a) => [a] -> (a,a)
bounds = foldMap (Min &&& Max) >>> getMin *** getMax

例:

> x = [1..10 :: Int]
> bounds x
(1,10)

它效率更高(minimum x, maximum x)吗？

还是有另一种方式比效率更高(minimum x, maximum x)？

我有一个这样的功能：

hypergeom ::
     forall a. (Eq a, Fractional a)
  => Int  -- truncation weight
  -> a    -- alpha parameter (usually 2)
  -> [a]  -- "upper" parameters
  -> [a]  -- "lower" parameters
  -> [a]  -- variables (the eigen values)
  -> IO a
hypergeom m alpha a b x = do
  ......

我选用的约束Fractional a，因为我想可能采取a型的Float，Double，Rational或Complex（例如Complex Double或Complex Rational）。

但是现在，Complex除了参数，我想允许alpha。但是如果a是类型，Complex b则 …

我正在使用R 3.3.3和RStudio 1.0.136,以及所有软件包的最新版本.

我在plotly包中遇到这个错误

> ggiris <- qplot(Petal.Width, Sepal.Length, data = iris, color = Species)
> ggplotly(ggiris)
Error in grid.Call(L_convert, x, as.integer(whatfrom), as.integer(whatto),  : 
  VECTOR_ELT() can only be applied to a 'list', not a 'NULL'

我"打印"ggplot后不再出现此错误:

> ggiris
> ggplotly(ggiris)

它不仅出现在RStudio中,还出现在Shiny应用程序中.

任何提示？

注意:这更可能发生在"新鲜"会话中(刚打开RStudio之后).

> sessionInfo()
R version 3.3.3 (2017-03-06)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows 7 x64 (build 7601) Service Pack 1

locale:
[1] LC_COLLATE=French_Belgium.1252  LC_CTYPE=French_Belgium.1252   
[3] LC_MONETARY=French_Belgium.1252 LC_NUMERIC=C                   
[5] LC_TIME=French_Belgium.1252    

attached base packages: …

考虑我们在服务器部分使用的任何 Shiny 模块session$ns，例如下面的模块。

我们可以等效地使用NS(id)来代替session$ns. 那么为什么推荐使用session$ns呢？相比有优势吗NS(id)？

library(shiny)

myModuleUI <- function(id){
  ns <- NS(id)
  uiOutput(ns("checkbox"))
}

myModuleServer <- function(id){
  moduleServer(id, function(input, output, session){
    ns <- session$ns
    output[["checkbox"]] <- renderUI({
      checkboxInput(ns("checkbox"), label = "Check me", value = FALSE)
    })
    observe({
      print(input[["checkbox"]])
    })
  })
}

ui <- basicPage(
  myModuleUI("myModule")
)

server <- function(input, output, session){
  myModuleServer("myModule")
}

shinyApp(ui, server)