减少/删除包括wordcloud在内的Shiny应用程序中的绘图边距

时间:2018-01-09 15:11:48

标签: r shiny word-cloud

如果我在我的计算机上复制了this example R Shiny应用程序 - full code and data here - Shiny生成的图像具有明显的白边,最终会削减一些单词。

以下是生成图像的示例: example wordcloud

请注意,空白区域包含在由闪亮而不是图像周围的空白区域生成的实际png文件中。当我看到online from the rstudio servers时,该示例正常运行。

可能的提示:如果我提高分辨率(例如通过在renderPlot中设置res = 150),则此白色边距会进一步增加。见输出图像: larger white margin

如何完全删除此空格?

编辑:通过增加画布大小(plotOutput中的宽度和高度),并在renderPlot中保持相同的分辨率(或通过降低那里的分辨率),您不太可能遇到问题。但白色边缘仍然存在。我想完全删除情节产生的白边,就像在我的现实生活中我有更复杂的wordclouds,comparison.cloud等。

2 个答案:

答案 0 :(得分:2)

我最终设法通过在每次调用server.R文件中的par(mar = rep(0, 4))之前添加wordcloud来处理它。我不知道这是否会导致潜在的其他问题,但目前它似乎回答了我自己的问题(它消除了闪亮的wordclouds中的白边缘)。

答案 1 :(得分:0)

您可以通过定义绘图大小(以像素为单位)来解决此问题。

在演示代码中这样:

    <?php
        //Columns must be a factor of 12 (1,2,3,4,6,12)
        $numOfCols = 3;
        $rowCount = 0;
        $bootstrapColWidth = 12 / $numOfCols;
        ?>
        <div class="row">
        <?php
        foreach ($rows as $row){
        ?>  
                <div class="col-md-4"<?php echo $bootstrapColWidth; ?>">
                    <div class="thumbnail">
                        <img src="user_file/<?php echo $row->foto; ?>">
                    </div>
                </div>


        <?php
            $rowCount++;
            if($rowCount % $numOfCols == 0) echo '</div><div class="row">';
        }
        ?>
        </div>


        <div class="embed-container">
        <?php the_field('podcast_embed_link'); ?>
        </div>



        <a href="<?php the_permalink(); ?>" title="<?php the_title_attribute(); ?>"><h3><?php the_title(); ?></a></h3>


        <p><b><?php echo $date->format( $format_out );?></b></p>

        <p><?php the_field('description'); ?></p>

        <?php if( get_field('thumbnail') ): ?>

        <img src="<?php the_field('thumbnail'); ?>" />


        <?php endif; ?>

        <?php endwhile; // end of the loop. ?>


        </div>
    </div>
</div><!-- #content -->