小编aos*_*ith的帖子

我想调用文本框中给出的数字,但我收到错误:

应用程序'xyz'(进程com.android)意外停止

以下是我的代码.哪里出错了？

EditText txtPhn;
@Override
public void onCreate(Bundle savedInstanceState) {
    super.onCreate(savedInstanceState);
    setContentView(R.layout.main);
    Button callButton = (Button)findViewById(R.id.btnCall);
    txtPhn = (EditText)findViewById(R.id.txtPhnNumber);
    callButton.setOnClickListener(new OnClickListener() {

        public void onClick(View v) {
            try {
                    Intent callIntent = new Intent(Intent.ACTION_CALL);
                    callIntent.setData(Uri.parse("tel:"+txtPhn.getText().toString()));
                    startActivity(callIntent);
                } catch (ActivityNotFoundException activityException) {
                    Log.e("Calling a Phone Number", "Call failed", activityException);
                }
        }
    });
}

编辑 LogCat

03-09 11:23:25.874: ERROR/AndroidRuntime(370): FATAL EXCEPTION: main
03-09 11:23:25.874: ERROR/AndroidRuntime(370): java.lang.SecurityException: Permission Denial: starting Intent { act=android.intent.action.CALL dat=tel:xxx-xxx-xxxx flg=0x10000000 cmp=com.android.phone/.OutgoingCallBroadcaster } from ProcessRecord{40738d70 370:org.krish.android/10034} (pid=370, uid=10034) …

如果使用,是否可以在y轴上添加标签theme_fivethirtyeight？我试过ylab但它不起作用:

library(ggplot2)
library(ggthemes)
p2 <- ggplot(mtcars, aes(x = wt, y = mpg, colour = factor(gear))) +
  geom_point() +
  ggtitle("Cars")
p2 + geom_smooth(method = "lm", se = FALSE) +
  scale_color_fivethirtyeight("cyl") +
  theme_fivethirtyeight() + ylab('SOMETHING')

我使用"count"来总结数据帧的列.专栏(dataset$Nationality)由不止一次出现的国籍组成(例如瑞士,德国,法国,瑞士等).它工作正常,直到它今天突然产生一个错误信息:

UseMethod("groups")中的错误:对于应用于"character"类对象的"groups"没有适用的方法.

我重新安装了dplyr,但它仍然无法正常工作.

例如:

dataset$Nationality consists of c("Swiss", "French","German","Swiss")

然后

count(dataset$Nationality) 

会给出类似的东西

Swiss,2, French, 1, German,1

有人可以告诉我,我能做些什么才能让它再次发挥作用？

非常感谢!

我正在运行 R 4.02 和 RStudio 1.3.1073。使用 glmmTMB 运行模型时出现错误。我应该更新还是恢复到其他版本？

.Call("FreeADFunObject", ptr, PACKAGE = DLL) 中的错误："FreeADFunObject" 不适用于包 "glmmTMB" 的 .Call()

我在安装时也收到此错误：

.Call("FreeADFunObject", ptr, PACKAGE = DLL) 中的错误：
“FreeADFunObject”不适用于包“glmmTMB”的 .Call() 尝试 URL 'https://cran.rstudio.com/bin/macosx/contrib/ 4.0/glmmTMB_1.0.2.1.tgz' 内容类型 'application/x-gzip' 长度 11403989 字节 (10.9 MB)

我想将抖动添加到散点图矩阵中.在stackoverflow上的下一页(以及其他地方)解决了这个问题:

如何为离散值生成有意义的绘图员/关联图

但是那里提出的抖动问题的解决方案都涉及不推荐的代码(plotmatrix和params):

library(ggplot2)
plotmatrix(y) + geom_jitter(alpha = .2)

library(GGally)
ggpairs(y, lower = list(params = c(alpha = .2, position = "jitter")))

我会简单地评论一下要求更新,以便不创建新问题,但这似乎需要声誉点,而且我是网站的新手.如果我在发布问题时做错了,我很抱歉.

编辑:

这是数据的样子:

> str(EHRound4.subset)
Classes ‘tbl_df’, ‘tbl’ and 'data.frame':   301 obs. of  22 variables:
$ Subject#         : int  1 2 3 4 6 7 8 13 14 16 ...
$ Condition        : Factor w/ 2 levels "CDR","Mturk": 1 1 1 1 1 1 1 1 
1 1 ...
$ Launch4          : int  5 8 8 5 8 5 …

我想一次将多个函数传递给一个purrr :: map调用,其中函数需要一些参数.作为伪代码:

funs <- c(median, mean)

mtcars %>% 
  purrr::map(funs, na.rm = TRUE) 

此代码并没有跑,而是意在展示我在寻找:多种功能穿越到map了一些争论一起.

我看了一下,compose但那个功能做了不同的事情.

假设我有一个较旧的帖子contents/post/2019-04-29-old-post.Rmd，我想从一个新的 rmarkdown 帖子链接到它。有什么方法可以在不使用实时站点的硬编码 url 的情况下做到这一点（这样当我的站点的 url 更改时，我不必更改所有这些交叉链接）？

现在我这样做：

In the [previous post](https://my.si.te/2019/04/29/old-post.html) we covered...

有没有办法以某种方式（可能是 Rmd 文件名）识别旧帖子并让 blogdown/hugo 生成正确的 url？

我想在填充条形图上添加百分比数字。这是标签位于错误位置的图：

这是数据框：

x0 <- expand.grid(grp    = c("G1","G2")
                 , treat = c("T1","T2")
                 , out   = c("out1","out2","out3","out4")
)
set.seed(1234)
x0$n <- round(runif(16,0,1)*100,0)
head(x0)
  grp treat  out  n
1  G1    T1 out1 11
2  G2    T1 out1 62
3  G1    T2 out1 61
4  G2    T2 out1 62
5  G1    T1 out2 86
6  G2    T1 out2 64

现在，我将 grp/treat 中的总和添加到数据帧中（使用 sql，抱歉！）：

x0 <- sqldf(paste("SELECT a.*, (SELECT SUM(n)"
                  ,"            FROM x0 b"
                  ,"            WHERE a.grp = b.grp"
                  ,"                  AND a.treat = …

是否可以使用存储在列名数组中的列名对数据框列进行子集化（到新的 df 中） - 就像 c("col1", "col9", "col6") 中那样？我知道我可以使用 df[[colname]] 语法引用 df 中的一列，但它不允许我对多列执行此操作：

df
   X1 X2 X3
1:  a  1  3
2:  b  5  3
3:  a  3  4
4:  c  6  5
5:  c  2  2

cnm<-c("X2","X3")

df[[cnm]]

.subset2（x，i，exact =exact）中的错误：下标超出范围

谢谢

我有这个点图：

ggplot(mpg, aes(drv, hwy)) +
  geom_dotplot(binwidth = 1, binaxis = 'y', stackdir = 'center')

呈现为

我想按制造商为点着色。如果我添加fill美学：

ggplot(mpg, aes(drv, hwy, fill = manufacturer)) +
  geom_dotplot(binwidth = 1, binaxis = 'y', stackdir = 'center')

它呈现为

看起来添加颜色以某种方式击败了堆叠算法，导致点重叠。我该如何解决？