$cache[$key] = empty($arr) ? NULL : $arr; return $cache[$key]; } // 门户 获取需要在频道显示的栏目主题数据 function portal_channel_thread($fid) { global $forumlist; if (empty($fid)) return NULL; $orderby = array('tid' => 1); $page = 1; // 遍历所有在频道显示内容的栏目 $category_forumlist = channel_category($fid); $arrlist = array(); $forum_tids = array(); $tidlist = array(); if ($category_forumlist) { foreach ($category_forumlist as &$_forum) { // 频道显示数据 $arrlist['list'][$_forum['fid']] = array( 'fid' => $_forum['fid'], 'name' => $_forum['name'], 'rank' => $_forum['rank'], 'type' => $_forum['type'], 'url' => $_forum['url'], 'channel_new' => $_forum['channel_new'], ); $forum_thread = thread_tid__find(array('fid' => $_forum['fid']), $orderby, $page, $_forum['channel_new'], 'tid', array('tid')); // 最新信息按栏目分组 foreach ($forum_thread as $key => $_thread) { $forum_tids[$key] = $_thread; } unset($forum_thread); } $tidlist += $forum_tids; } unset($category_forumlist); // 获取属性对应的tid集合 list($flaglist, $flagtids) = flag_thread_by_fid($fid); empty($flagtids) || $tidlist += $flagtids; unset($flagtids); // 频道置顶 $stickylist = sticky_list_thread($fid); empty($stickylist) || $tidlist += $stickylist; // 在这之前合并所有二维数组 tid值为键/array('tid值' => tid值) $tidarr = arrlist_values($tidlist, 'tid'); // 在这之前使用$tidarr = array_merge($tidarr, $arr)前合并所有一维数组 tid/array(1,2,3) if (empty($tidarr)) { $arrlist['list'] = isset($arrlist['list']) ? array_multisort_key($arrlist['list'], 'rank', FALSE, 'fid') : array(); return $arrlist; } $tidarr = array_unique($tidarr); $pagesize = count($tidarr); // 遍历获取的所有tid主题 $threadlist = well_thread_find_asc($tidarr, $pagesize); // 遍历时为升序,翻转为降序 $threadlist = array_reverse($threadlist); foreach ($threadlist as &$_thread) { // 各栏目最新内容 isset($forum_tids[$_thread['tid']]) AND $arrlist['list'][$_thread['fid']]['news'][$_thread['tid']] = $_thread; // 全站置顶内容 isset($stickylist[$_thread['tid']]) AND $arrlist['sticky'][$_thread['tid']] = $_thread; // 首页属性主题 if (!empty($flaglist)) { foreach ($flaglist as $key => $val) { if (isset($val['tids']) && in_array($_thread['tid'], $val['tids'])) { $arrlist['flaglist'][$key][array_search($_thread['tid'], $val['tids'])] = $_thread; ksort($arrlist['flaglist'][$key]); $arrlist['flag'][$_thread['tid']] = $_thread; } } } } unset($threadlist); if (isset($arrlist['sticky'])) { $i = 0; foreach ($arrlist['sticky'] as &$val) { ++$i; $val['i'] = $i; } } if (isset($arrlist['flag'])) { $i = 0; foreach ($arrlist['flag'] as &$val) { ++$i; $val['i'] = $i; } } if (isset($arrlist['flaglist'])) { foreach ($arrlist['flaglist'] as &$val) { $i = 0; foreach ($val as &$v) { ++$i; $v['i'] = $i; } } } isset($arrlist['list']) AND $arrlist['list'] = array_multisort_key($arrlist['list'], 'rank', FALSE, 'fid'); return $arrlist; } ?>Questions Regarding R Programming - Stack Overflow
最新消息:雨落星辰是一个专注网站SEO优化、网站SEO诊断、搜索引擎研究、网络营销推广、网站策划运营及站长类的自媒体原创博客

Questions Regarding R Programming - Stack Overflow

programmeradmin0浏览0评论

I'm trying to identify the impact of how meltout day and temperature affects the species i.e colonization and extinction. My model output shows the positive relationship between these two factors (note I'm using OLM Method):When analyzing the data for colonization and extinction, the output result the value for median temperature and median meltout day is significant but median meltout shows a slight negative correlation. Here the median line is slightly downward. Can anyone help me for this in visualization?

Call:
lm(formula = log_ratio_index ~ median_temperature + median_meltoutday, 
    data = final_data)

Residuals:
    Min      1Q  Median      3Q     Max 
-2.8735 -0.6936 -0.2344  0.7888  2.4716 

Coefficients:
                   Estimate Std. Error t value Pr(>|t|)   
(Intercept)        -9.78362    4.27628  -2.288  0.02485 * 
median_temperature  0.50633    0.16239   3.118  0.00255 **
median_meltoutday   0.04440    0.02003   2.216  0.02958 * 
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 1.277 on 78 degrees of freedom
Multiple R-squared:  0.1137,    Adjusted R-squared:  0.09094 
F-statistic: 5.002 on 2 and 78 DF,  p-value: 0.009042

I'm trying to identify the impact of how meltout day and temperature affects the species i.e colonization and extinction. My model output shows the positive relationship between these two factors (note I'm using OLM Method):When analyzing the data for colonization and extinction, the output result the value for median temperature and median meltout day is significant but median meltout shows a slight negative correlation. Here the median line is slightly downward. Can anyone help me for this in visualization?

Call:
lm(formula = log_ratio_index ~ median_temperature + median_meltoutday, 
    data = final_data)

Residuals:
    Min      1Q  Median      3Q     Max 
-2.8735 -0.6936 -0.2344  0.7888  2.4716 

Coefficients:
                   Estimate Std. Error t value Pr(>|t|)   
(Intercept)        -9.78362    4.27628  -2.288  0.02485 * 
median_temperature  0.50633    0.16239   3.118  0.00255 **
median_meltoutday   0.04440    0.02003   2.216  0.02958 * 
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 1.277 on 78 degrees of freedom
Multiple R-squared:  0.1137,    Adjusted R-squared:  0.09094 
F-statistic: 5.002 on 2 and 78 DF,  p-value: 0.009042
Share Improve this question edited Feb 8 at 19:49 CPlus 4,77644 gold badges30 silver badges73 bronze badges asked Feb 6 at 13:06 RPPRPP 11 bronze badge New contributor RPP is a new contributor to this site. Take care in asking for clarification, commenting, and answering. Check out our Code of Conduct.
Add a comment  | 

1 Answer 1

Reset to default 0

There are lots of ways to do this but one of the easiest is with the effects package.

m1 <- lm(mpg ~ hp + disp, data = mtcars)
library(effects)
plot(allEffects(m1))

You can also do this with the sjPlot package, the ggeffects package, the marginaleffects package, or the emmeans package: see also How do I plot a single numerical covariate using emmeans (or other package) from a model? ...

发布评论

评论列表(0)

  1. 暂无评论