我想做一些我不知道是否可能的事情
<!DOCTYPE html>
<html ng-app="myApp">
<head lang="en">
<meta charset="utf-8">
<title>Custom Plunker</title>
<link rel="stylesheet" type="text/css" href="http://angular-ui.github.com/ng-grid/css/ng-grid.css" />
<link rel="stylesheet" type="text/css" href="style.css" />
<script src="https://ajax.googleapis.com/ajax/libs/jquery/1.8.0/jquery.min.js"></script>
<script src="https://ajax.googleapis.com/ajax/libs/angularjs/1.0.2/angular.min.js"></script>
<script type="text/javascript" src="http://angular-ui.github.com/ng-grid/lib/ng-grid.debug.js"></script>
<script type="text/javascript" src="main.js"></script>
</head>
<body ng-controller="MyCtrl">
<div class="gridStyle" ng-grid="gridOptions"></div>
</body>
</html>
Run Code Online (Sandbox Code Playgroud)
// main.js
var app = angular.module('myApp', ['ngGrid']);
app.controller('MyCtrl', function($scope) {
$scope.myData = [{name: "Moroni", age: 50},
{name: "Tiancum", age: 43},
{name: "Jacob", age: 27},
{name: "Nephi", age: 29},
{name: "Enos", age: 34}];
$scope.gridOptions = { data: 'myData',
cellTemplate:'<div class="ngCellText" …Run Code Online (Sandbox Code Playgroud) 我想访问RStudio中源代码面板中输入内容的历史记录.
我对学习和输入代码的方式很感兴趣.我想分析的三件事是:i)单个人输入代码的方式,ii)不同的人如何键入代码,iii)初学者改进打字的方式.
抓住命令的历史是非常令人满意的,因为这是第一次尝试,但我希望达到更精细的粒度,从而在一条线路中以一种方式访问连续的变化.
所以,要清楚,我既不是在寻找命令的历史,也不是在.R文件的不同版本之间寻找差异.
我想要访问的实际上是在递归按下时可见的源面板的连续更改Ctrl+Z.我不知道我所描述的内容是否更准确,但我感兴趣的是在源面板中如何添加/移动/删除/纠正/改进代码,但不必传递给控制台因而没有指挥史.
这必须在某个地方/以某种方式由RStudio保存,因为它可以被后者访问.这可能以非常隐藏/私有/内存/进程/ ...的方式保存,我对GUI的工作原理非常模糊.我不知道它是否易于访问,然后进行程序化分析,通常是我们可以从中保存文件.时间戳将是最顶级的樱桃,但我会很高兴没有.
你知道如何访问这段历史吗?
假设我有两个数据帧df1和df2如下
Df1
Id Price Profit Month
10 5 2 1
10 5 3 2
10 5 2 3
11 7 3 1
11 7 1 2
12 0 0 1
12 5 1 2
Df2
Id Name
9 Kane
10 Jack
10 Jack
11 Will
12 Matt
13 Lee
14 Han
Run Code Online (Sandbox Code Playgroud)
现在我想在Df1named中插入一个新列,Name并Df2根据匹配得到它的值Id
所以修改后的Df1会
Id Price Profit Month Name
10 5 2 1 Jack
10 5 3 2 Jack
10 5 2 3 Jack …Run Code Online (Sandbox Code Playgroud) 我在R中创建一个自定义函数,它将一些不同的变量作为输入,并创建一个data.frame,一个图和一些汇总统计数据,所有这些都存储在一个列表中.我只想在调用函数时打印出摘要统计信息,但在显式调用时可以使用plot和data.frame.
我认为我想要的是如何lm()操作,但我不确定它是如何实现的.
当我打印lm我返回的对象时,只得到打印输出$call和$coefficients:
lm(mtcars$mpg ~ mtcars$cyl)
Call:
lm(formula = mtcars$mpg ~ mtcars$cyl)
Coefficients:
(Intercept) mtcars$cyl
37.885 -2.876
Run Code Online (Sandbox Code Playgroud)
但是在幕后显然,函数调用中有更多可用的东西lm.
lm(mtcars$mpg[1:3] ~ mtcars$cyl[1:3])$residuals
1 2 3
-1.280530e-15 1.280530e-15 8.365277e-31
> unclass(lm(mtcars$mpg[1:3] ~ mtcars$cyl[1:3])
Call:
lm(formula = mtcars$mpg[1:3] ~ mtcars$cyl[1:3])
Coefficients:
(Intercept) mtcars$cyl[1:3]
26.4 -0.9
> unclass(lm(mtcars$mpg[1:3] ~ mtcars$cyl[1:3]))
$coefficients
(Intercept) mtcars$cyl[1:3]
26.4 -0.9
$residuals
1 2 3
-1.280530e-15 1.280530e-15 8.365277e-31
$effects
(Intercept) mtcars$cyl[1:3]
-3.741230e+01 1.469694e+00 1.810943e-15
....
$call
lm(formula = mtcars$mpg[1:3] ~ …Run Code Online (Sandbox Code Playgroud) 我有 10 组数据点,我正在尝试为要在绘图上显示的每个组添加平均值(例如,通过不同的符号,如大三角形或星形或类似的东西)。这是一个可重现的例子
library(ggplot2)
library(reshape2)
set.seed(1234)
x <- matrix(rnorm(100),10,10)
varnames <- paste("var", seq(1,10))
df <- data.frame(x)
colnames(df) <- varnames
melt(df)
ggplot(data = melt(df)) + geom_point(mapping = aes(x = variable, y = value))
mymeans <- colMeans(df)
Run Code Online (Sandbox Code Playgroud)
基本上我现在想mymeans在各自的变量位置绘制值,有人知道如何快速做到这一点吗?
我正在研究JointJS.我有各种带文字的元素.但是元素的宽度随着文本的增加而增加.我想动态设置元素的大小,使得盒子可以达到最大高度和宽度,并通过文本换行相应地扩展.如果文本os无法放入最大高度和宽度元素,则可以动态减少fontsize.
我试过style="word-wrap: break-word;"在我的div id中使用.但是没有效果.
<div id="myholder" style="word-wrap: break-word;"> </div>
Run Code Online (Sandbox Code Playgroud)
我的持有人在JS文件中定义如下:
var paper = new joint.dia.Paper({
el: $('#myholder'),
width: 1200,
height: 700,
model: graph
});
我可以遵循什么策略?
我无法理解公式如何在R中起作用,公式是什么.那么,如果我有一个包含月度时间序列的向量,我怎么能创建一个盒子图,其中数据按季节逻辑划分?我想有12盒,每月一盒.