小编Bra*_*ani的帖子

象征性地求解方程可以使用Ryacas库在R中实现.例如

library(Ryacas)
yacas("Solve(x/(1+x) == a, x)")

给

expression(list(x == a/(1 - a)))

有人知道如何(象征性地)解决方程组吗？

谢谢.

是aov适合不平衡数据集.根据帮助...provides a wrapper to lm for fitting linear models to balanced or unbalanced experimental designs.但后来就说了aov is designed for balanced designs, and the results can be hard to interpret without balance.

我应该如何在R中的非平衡数据集上执行双向anova？

我想重现SAS输出的I型和III型平方和的不同结果(使用时proc glm).我记得我们type III sum of squares用于不平衡的数据集.

先感谢您.

..或者我必须付出

P.nk <- factorial(n) / factorial(n-k)

要么

P.nk <- choose(n,k) * factorial(k)

谢谢.

这是一个可复制的示例，其中我使用了辅助列（temp）来生成嵌套data列。

在不使用辅助列的情况下如何获得相同的结果？我尝试使用，group_by_all但是没有用。（因此，我也不确定我是否了解group_by_all函数的用途）

df <- structure(
  list(
    Var1 = c(0L, 1L, 2L, 3L, 0L, 1L, 2L, 3L, 0L, 1L, 
             2L, 3L, 0L, 1L, 2L, 3L, 0L, 1L, 2L, 3L,
             0L, 1L, 2L, 3L),
    Var2 = c(0L, 0L, 0L, 0L, 1L, 1L, 1L, 1L, 2L, 2L,
             2L, 2L, 0L, 0L, 0L, 0L, 1L, 1L, 1L, 1L,
             2L, 2L, 2L, 2L), 
    Var3 = c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L,
             0L, 0L, 1L, 1L, 1L, 1L, …

我如何找出 rmarkdown / bslib 使用哪个 bootstrap scss 变量来为页面元素着色？例如为目录背景着色？

这是一个页面的yaml

output:
  html_document:
    self_contained: false
    theme: 
      version: 4
      bootswatch: cyborg
    toc: yes
    toc_depth: 3
    toc_float:
      collapsed: true

举个例子，这里有一种方法可以得到一个包含 4 个（公平）骰子的所有可能结果的矩阵。

z <- as.matrix(expand.grid(c(1:6),c(1:6),c(1:6),c(1:6)))

正如您可能已经理解的那样，我正在尝试解决一个已结束的问题，但在我看来，这是一个具有挑战性的问题。我使用计数技术来解决它（我的意思是手工），我最终得出了一些结果，子集之和为 5，等于 1296 中的 1083。该结果与提供给该问题的答案一致，在它关闭之前。我想知道如何使用 R 生成结果的子集（比如 z1，其中 dim(z1) = [1083,4] ）。你有什么想法吗？

谢谢你。

给定2x2矩阵的列表(长度= n),如何计算所有这些矩阵的总和(并获得2x2矩阵)？

我怎么能这样做,如果不是列表,我在(2 x 2 xn)维数组中有那些矩阵？

图中的非英文字符无法正确显示.这是一个可重复的例子.

---
title: "Untitled"
output:
  pdf_document:
    latex_engine: xelatex
  html_document:
    highlight: tango
    theme: null
---

This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see <http://rmarkdown.rstudio.com>.

When you click the **Knit** button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like …

在以下数据框中,我想创建一个新变量作为所有现有变量的以下函数:

as.numeric(paste0(df[i,],collapse=""))

但是,我不想明确定义列名,因为它们的编号和名称每次都可能不同.我怎么能用dplyr做到这一点？

基数r中的等价物将是这样的:

apply(df,1,function(x) as.numeric(paste0(x,collapse="")))


df <- structure(list(X1 = c(50, 2, 2, 50, 5, 5, 2, 50, 5, 5, 50, 2, 
5, 5, 50, 2, 2, 50, 9, 9, 9, 9, 9, 9), X2 = c(2, 50, 5, 5, 50, 
2, 5, 5, 50, 2, 2, 50, 9, 9, 9, 9, 9, 9, 50, 2, 2, 50, 5, 5), 
    X3 = c(5, 5, 50, 2, 2, 50, 9, 9, 9, 9, 9, 9, 50, 2, 2, 50, 
    5, 5, …

如何更改gvisAnnotationChart的chartArea背景颜色？

我尝试过，但没有成功（我尝试复制我在这个答案中看到的内容）

gvisAnnotationChart(
...,
options = list(
    ...,
    chart = list(
      backgroundColor = "#D3D3D3"
    )
  )
)